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 skwriteln('plocha pramoygolnuka bolhe');
readln;
End.