Очень нужно срочно!!!Pascal ABC!!вводится числа до той поры,пока не будет введено число...

Question

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

Answer 1

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