var
f,g: text;
n,a,b,s: integer;
begin
assign(f,'input.txt');
reset(f);
read(f,n); read(f,a); read(f,b);
close(f);
assign(g,'output.txt');
rewrite(g);
s:=n*a*b*2;
write(g,s);
close(g);
writeln('Èñêîìûå äàííûå çàïèñàíû â ôàéë "output.txt"');
readln;
end.
0
Объяснение:
Если необходимо проводить проверку на существование файла - она в разных паскалях проводится по разному.
А эта задача решается очень просто - произведение n, a, b умножается еще и на 2.