uses crt;
Var
  f1,f2: File of Real;
  x: Real;
  n,i,t: Integer;
BEGIN
Randomize;
Write('Vvedite kol-vo chisel: '); Readln(n);
Assign(f1,'input.dat'); Rewrite(f1);
For i:=1 to n do
begin
  x:=10*Random-4;
  Write(f1,x);
end;
Reset(f1);
Writeln('1 fail:');
While not Eof(f1) do
begin
  Read(f1,x);
  Write(x:8:2)
end;
For i:=Filesize(f1)-1 downto 0 do
begin
  Seek(f1,i);
  Read(f1,x);
  If x>0 Then t:=i;
end;
Assign(f2,'output.dat'); Rewrite(f2);
For i:=t+1 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,x);
  Write(f2,x);
end;
Reset(f2);
Writeln;
Writeln('Soderzhimoe 2 faila:');
While not Eof(f2) do
begin
  Read(f2,x);
  Write(x:8:2,' ');
end;
Close(f1);
Close(f2);
Readln
end.