Var
  x, y: longint;
  i: integer;

begin
  for i := 1 to 5 do
  begin
    Write('Введите число: ');
    Readln(x);
    y := sqr(x);
    if (y mod 2) = 0 then Writeln('Четное')
    else Writeln('Квадрат числа равен ', y)
  end
end.

Тестовое решение:

Введите число: 1
Квадрат числа равен 1
Введите число: 2
Четное
Введите число: 3
Квадрат числа равен 9
Введите число: 4
Четное
Введите число: 5
Квадрат числа равен 25