Программа читает из файла <data.txt> 10 чисел, перемножает их. решить задачу на турбо паскале

[bikmai4ik]

turbo pascal Программа читает из файла «data.txt» 10 чисел, перемножает их и выводит результат на экран

помогите решить задачу.заранее спасибо.

[ZX Spectrum-128]

Pr:=1;
Assign(f,'data.txt');
Reset(f);
For i:=1 to n do
  Begin
    Read(f,a);
    Pr:=pr*a;
   End;
Writeln(pr);
...
Close(f);

[bikmai4ik]

большое спасибо