Создать файл F, компоненты которого вычисляются по формуле - Pascal ABC

program lab7;
 
const
  n = 8;
 
var
  a, s: real;
  i: integer;
  f, r: file of real;
 
begin
  assign(F, 'F.dat');
  rewrite(f);
  writeln('File F:');
  for i := 1 to n do
  begin
    a := (i * i - 5) / (i * i);
    write(f, a);
    write(a:8:2);    
  end;
  reset(f);
  assign(r, 'R.dat');
  rewrite(r);
  i := 1;
  while not eof(f) do
  begin
    read(f, a);
    if odd(i) then
      write(r, a);
    inc(i);
  end;
  reset(r);
  writeln;
  writeln('File R:');  
  while not eof(r) do
  begin
    read(r, a);
    write(a:8:2);
  end;
  
  close(f);
  close(r);
end.