Дано число, если оно кратко 5, то найти площадь круга с радиусом равным 5, если число четное, то найти площадь квадрата с этим числом (паскаль 8 кл)

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

program CalculateArea;

var
num: integer;
radius, squareSide: integer;
circleArea, squareArea: real;

begin
write('Enter a number: ');
readln(num);

if num < 5 then
begin
radius := 5;
circleArea := Pi radius radius;
writeln('The area of the circle with radius 5 is ', circleArea:0:2);
end
else if num mod 2 = 0 then
begin
squareSide := num;
squareArea := squareSide * squareSide;
writeln('The area of the square with side ', squareSide, ' is ', squareArea);
end
else
writeln('Number does not meet the conditions.');
end.