Paskal дано натуральное число n. построить новое число удалением из числа n нечетных цифр.

{Файл: prog4_13.pasЗадача:  Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр. Автор:  Дата:  23,09,2015}var n, d : integer;
begin  {Ввод N}  writeln ('ведите число N');  readln (n);    {Вычисление}  while n <> 0 do    begin      d:= n mod 10;             if d mod 2 = 0 then {Проверяем цифру на четность}        writeln (d);      {Выводим четную цифру}      n:= n div 10 ;      {Убираем из числа N провереную цифру}    end;end.