PASCAL ПРОШУ
Дан файл F компоненты которого являются действительными числами найти произведение компонентов файла

var  f :Text;  x, mult: real;begin  mult := 1;  assign(f, 'F');  reset(f);  while not Eof(f) do  begin    readln(f, x);    mult := mult * x;  end;  Close(f);  writeln(mult);end.