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

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;beginreadln(x);readln(a);readln(b);s1:=x*x;s2:=a*b;if s1>s2 then writeln('площадь квадрата больше');else writeln('площадь прямоугольника больше');writeln;end.