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

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

Program CircleSquare;

var
number, area: real;

begin
writeln('Enter a number:');
readln(number);

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