Дано число разобрать на отдельные цифры, и вывести четные или нечетные.
program chislo;
var
a : longint;
a1 : integer;
b : boolean;
begin
writeln('Введите 5 значное число.');
readln(a);
while a <> 0 do
begin
b := false; // цифра нечетная
a1 := a mod 10; // получаем остаток от деления на 10, (последняя цифра)
a := a div 10; // отбрасываем последнее число
if not(odd(a1)) then b := true; // цифра четная
if b then writeln('Цифра ', a1, ' четная.')
else writeln('Цифра ', a1, ' нечетная.');
end;
readln;
end.