)пользователь вводит пятизначное число необходимо составить обратное число, заменив четные значения разрядов на нечетные и наоборот паскаль

var?

   n, m: longint;

   a: byte;

begin

   readln(n);

   m := 0;

   while n>0 do begin

       a := n mod 10;

       n := n div 10;

       m := m*10 + a;

   end;

   writeln(m);

readln;

end.