Решить! pascal abc кот матроскин записал сумму денег вырученных за продажу молока. пёс шарик, назло вечно поучающему его коту, в этой записи заменил все чётные цифры, уменьшив их на 2(только 0 заменял на 8),не трогая нечётные цифры. матроскину восстановить первоначальную запись. ввод корректен (ни одно число не начинается с 8).

// PasaclABC.Net 3.0, сборка 1052
const
  c0=Ord('0');
var
  ns,d:integer;
  s:string;
begin
  Write('Введите сумму, записанную Шариком: '); Read(ns);
  s:='';
  while ns>0 do begin
    d:=ns mod 10;
    if Odd(d) then s:=Chr(d+c0)+s
    else
      if d<>8 then s:=Chr(d+2+c0)+s
      else s:='0'+s;
    ns:=ns div 10
  end;
  Write('Сумма, записанная Матроскиным: ',s)
end.

Тестовое решение:
Введите сумму, записанную Шариком: 14258
Сумма, записанная Матроскиным: 16450