Информатика. Решить через Паскаль, программирование. Вычислить площадь квадрата и площадь прямоугольника. Какая площадь больше?

Program Ploshad

var a, b, c, pk, pp: integer;

begin

writeln ('Vvedite dlinu storony kvadrata') ;

readln (a) ;

writeln ('Vvedite dlinu prjamougolnika') ;

readln (b) ;

writeln ('Vvedite shirinu prjamougolnika') ;

readln (c) ;

pk:=a*a; pp:=b*c;

if pk>pp then

writeln ('Ploshad kvadrata bolshe')

else if pp>pk writeln ('Ploshad pryamougolnika bolshe')

else writeln ('Ploshadi figur ravni') ;

readln;

end.

VAR x, a, b, s1, s2:real;

begin

readln (x) ;

readln (a) ;

readln (b) ;

s1:=x*x;

s2:=a*b;

if s1>s2 then writeln ('площадь квадрата больше') ;

else writeln ('площадь прямоугольника больше') ;

writeln;

end.