Дан файл f, компоненты которого являются действительными числами. Найдите произведение компонент файла f - Turbo Pascal

Формулировка задачи:

Дан файл f, компоненты которого являются действительными числами. Найдите произведение компонент файла f.

Решение задачи: «Дан файл f, компоненты которого являются действительными числами. Найдите произведение компонент файла f»

Листинг программы

var
  f: file of real;
  i,n: integer;
  t,p: real;
begin
  write('Количество чисел в файле - ');
  readln(n);
  assign(f,'1.dat');
  rewrite(f);
  for i:=1 to n do
  begin
    t:=random*10;
    write(f,t);
  end;
  seek(f,0);
  p:=1;
  writeln('Числа:');
  while not eof(f) do
  begin
    read(f,t);
    p:=p*t;
    write(t:6:2);
  end;
  close(f);
  writeln;
  writeln('Произведение =  ',p:0:2);
  readln;
end.

Объяснение кода листинга программы

В начале объявляются переменные: f - файл типа real, i - целое число, n - целое число, t - вещественное число, p - вещественное число.
Выводится сообщение «Количество чисел в файле - », считывается число n.
Задаётся имя файла f='1.dat'.
Выполняется операция перезаписи (rewrite) файла f.
Запускается цикл for i:=1 до n do.
Внутри цикла считывается случайное число t=random*10, записывается в файл f.
Цикл завершается, файл сбрасывается в начало (seek(f,0)).
Переменная p инициализируется единицей.
Запускается цикл while not eof(f) do.
Внутри цикла считывается число t из файла f, переменная p перемножается на t и записывается в файл f.
Цикл завершается, файл сбрасывается в начало (seek(f,0)).
Программа завершается, выводится сообщение «Произведение = », значение переменной p выводится в формате t:6:2.