Решите в паскале)Дано число.Найти квадрат числа.Если квадрат-четный,то вывести "Четное",иначе вывести квадрат числа.Повторить процесс 5 раз.

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