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

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