Нужно ! pascal числа до той поры,пока не будет введено число 1.определить четность каждого из них.

Var
  a: integer;
begin
  repeat
    write('Введите число ');
    readln(a);
    if a mod 2 = 0 then writeln(a, ' - четное')
    else writeln(a, ' - нечетное');
  until a = 1;
end.