Задача Pascal, цикл While
Ввести целое число и определить, верно ли, что все его цифры чётные
Пример:
Введите число: 2684:да

Var A:longint;    k:integer;BeginWrite('Введите целое число: ');ReadLn(A);k:=0;While A<>0 do   Begin   if (A mod 10) mod 2 <> 0 then k:=1;   A:=A div 10   End;if k=0 then WriteLn('Да')else WriteLn('Нет')End.