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

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 > s2 then write ('площадь круга больше ') else write ('площадь квадрата больше '); / /проверяем, если первая площадь больше второй, то выводим первый ответ, иначе второй

end.