Нужно на языке паскаль определить какая из фигур имеет большую площадь, прямоугольник со сторонами в и с или квадрат со сороной а.

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