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

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.