du

program sifrovanie;
{$APPTYPE CONSOLE}
uses SysUtils;
var i:byte;
    s,v:string;
    c:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vetu: ');
  readln(v);
  for i:=1 to length(v) do
    begin
      if (ord(v[i])<49) or (ord(v[i])>57) then c:=false else c:=true;
      if c = true then
        begin
          if strtoint(v[i]) mod 2 = 0 then s:=s+chr(ord(v[i])+10)
            else s:=s+chr(ord(v[i])-10);
        end
      else
        begin
          if i mod 2 = 0 then s:=s+chr(ord(v[i])+10)
            else s:=s+chr(ord(v[i])-10);
        end;
    end;
  writeln(s);
  readln;
end.