прочитайте из файла f1 все числа найдите их произведение результат выведите в файл f2

var  a,s:real;f1,f2:text;beginassign(f1,'f1.txt');reset(f1);assign(f2,'f2.txt');rewrite(f2);s:=1;while not eof(f1) dobeginread(f1,a);s:=s*a;end;write(f2,s);close(f1);close(f2);end.