задана сторона а1 первого квадрата и сторона другого квадрата а2. Площадь какого квадрата больше?

А если площади будут равны?

vara1,a2:integer;beginwriteln('Введите а1');read(a1);writeln('Введите а2');read(a2);a1:=sqr(a1);a2:=sqr(a2);if a1>a2 then writeln('Площадь а1 больше')elsewriteln('Площадь а2 больше');end.