Пусть на НМД имеется текстовый файл ID.DAT, который содержит числовые значения действительного типа по два числа в каждой строке — значения аргумента и функции соответственно. Количество пар чисел не более 200. Составить программу, которая читает файл, значения аргумента и функции записывает в одномерные массивы, подсчитывает их количество, выводит на экран дисплея и записывает в файл компо- нентного типа RD.DAT- Pascal(Паскаль)

Program F;
    var
     rArg, rF: Array[1..200] of Real;
       inf: Text;
       outf: File of Real;
       n, l: Integer;
    begin
      Assign(inf,'ID.DAT');
      Assign(outf,'RD.DAT');
      Reset(inf);
      Rewrite(outf);
      n:=0;
      while not EOF(inf) do
        begin
          n:=n+1;
          ReadLn(inf,rArg[n],rF[n])
        end;
      for l:=1 to n do
       begin
        WriteLn(l:2,rArg[l]:8:2,rF[l]:8:2);
        Write(outf,rArg[l], rF[l]);
       end;
      close(outf)
    end.