Могла бы и написать чему равен исходный W)))))
ну да ладно))
вот:
uses crt;
var
E,f,w,magprovod:real;
begin
writeln('Исходные данные:');
write('f=');
read(f);
write('w=');
read(w);
write('magprovod(только число без степени десятки)=');
read(magprovod);
E:=4.44*f*w*magprovod*(1/10/10/10/10);
write(ЭДС равно=',E);
end.
З.Ы.magprovod=Ф, просто f уже есть, а русские паскаль не воспринимает)))