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

Предыдущий
вопрос Следующий
вопрос

program CircleSquareComparison;

var
radius, side, circleArea, squareArea: real;

begin
// Input radius of the circle
write('Enter the radius of the circle: ');
readln(radius);

// Input side of the square
write('Enter the side of the square: ');
readln(side);

// Calculate area of the circle
circleArea := Pi radius radius;

// Calculate area of the square
squareArea := side * side;

// Compare the areas
if circleArea < squareArea then
writeln('The area of the circle is smaller')
else if squareArea < circleArea then
writeln('The area of the square is smaller')
else
writeln('The areas are equal');
end.