Uses crt;
var a,b,c,Sk,Sp:real;
Begin
Clrscr;
writeln(vedut a);
readln(a);
writeln(vedut b);
readln(b);
writeln(vedut c);
readln(c);
sk:=a*a;
sp:=b*c;
if sk>sp then
writeln(plocha kvadrata bolhe);
if sk
readln;
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.