program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type files=file of real;
  procedure vvodn(var f1:files;n:integer);
  var n1:integer; r1:real;
  begin
    for n1:=1 to n do begin
                      readln(r1);
                      write(f1,r1);
                      end;
  end;
  procedure vvodm(var f2:files;m:integer);
  var m1:integer;r2:real;
  begin
    for m1:=1 to m do begin
                      randomize;
                      r2:=random(40)-random(40);
                      write(f2,r2);
                      end;
  end;
  procedure vivod(var f1:files);
  var a:real;
  begin
    Reset(f1);
    while not eof(f1) do begin
                         read(f1,a);
                         writeln(a:0:1,' ');
                         end;
  end;
  procedure pol(var f1,f2:files);
  var a:real;
  begin
    While not eof(f1) do Begin
                         Read(f1,a);
                         If (a>0) or (a=0)
                         then Write(f2,a);
                         end;
  end;
  var f,ff:files;
      n,m:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
   writeln('2.1)');
   assignfile(f,'temp.dat');
   rewrite(f);
   write('vvedite kol-vo dnei(n):  ');
   readln(n);
   vvodn(f,n);
   write('vvedite kol-vo dnei(m):  ');
   readln(m);
   vvodm(f,m);
   writeln('dannie v faile:');
   vivod(f);
   readln;
   writeln('2.2)');
   closefile(f);
   assignfile(ff,'temp_p.dat');
   rewrite(ff);
   reset(f);
   pol(f,ff);
   vivod(ff);
   readln;
end.