Розв’язок задачі з Абрамова №207

Всі умови | Умова: Дано натуральне число n. Викинути з запису числа n цифри 0 і 5, залишивши колишнім порядок інших цифр. Наприклад, з числа 59015509 повинно вийти 919. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №207)

program Pr207;
var
  n, newN, i, k, number : integer;
begin
  readln(n);
  newN := 0;
  k := 1;
  while n <> 0 do
  begin
    number :=  n mod 10;
    if (number <> 5) and (number <> 0) then
    begin
      newN := newN + number * k;
      k := k * 10;
    end;
    n := n div 10;
  end;
  writeln(newN);
  readln;
end.