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.