проверить код на правильность. следующее:
даны площади двух квадратов. найти произведение периметров этих квадратов. входной файл in.txt, выходной файл out.txt.

program ideone;
var a,b,c: real;
f1,f2: text;

begin
assign(f1,'in.txt');
reset(f1);
read(f1,a,b);
close(f1);
c: =16*sqrt(a)*sqrt(b);
assign(f2,'out.txt');
rewrite(f2);
writeln(f2,c);
close(f2);
end.

Рома3108    3   01.12.2019 09:59    0