The radius of the circle and the side of the square are given. Which shape has more area? Write a program in Pascal

program zz1;

var
a, r, s1, s2: real;

begin
writeln (‘Enter r’); // enter the radius of the circle
read (r);
writeln (‘Enter a’); // enter the side of the square
read (a);
s1: = pi * r * r; // find the area of the circle
s2: = a * a; // find the area of the square
if s1 = s2 then write (‘areas are equal’) // check if areas are equal, then print the answer
else
if s1> s2 then write (‘the area of the circle is greater’) else write (‘the area of the square is greater’); // check if the first area is larger than the second, then display the first answer, otherwise the second
end.