Даны радиус круга и сторона квадрата. У какой фигуры больше площадь?

program zz1;

var
a, r, s1,s2: real;

begin
writeln(Введите r); // вводим радиус круга
read(r);
writeln(Введите a); // вводим сторону квадрата
read(a);
s1:=pi*r*r; // обретаем площадь круга
s2:=a*a; // обретаем площадь квадрата
if s1 = s2 then write(площади одинаковы ) //проверяем, если площади одинаковы, то выводим ответ
else
if s1 gt; s2 then write(площадь круга больше ) else write(площадь квадрата больше ); //проверяем, если 1-ая площадь больше 2-ой, то выводим первый ответ, иначе 2-ой
end.