program nezinomas_kodavimas;
  { 133 u‘davinys }
  procedure atkoduoti (var fduom, frez : text);
    var b1, b2, simb : char;
        kodas, sk1, sk2 : integer;
  begin
    while not eof (fduom) do
      begin
        { perskaitome du baitus, kurias buvo koduojamas vienas baitas }
        read (fduom, b1, b2);
        { žežioliktainius skaitmenis u‘ražysime dežimtainiais }
        if b1 in ['A'..'Z']
           then sk1 := ord(b1) - ord('A') + 10
           else sk1 := ord(b1) - ord('0');
        if b2 in ['A'..'Z']
           then sk2 := ord(b2) - ord('A') + 10
           else sk2 := ord(b2) - ord('0');
        kodas := sk2 * 16 + sk1;
        simb := chr (kodas);
        write (frez, simb);
      end;
  end;

  var fduom, frez : text;
begin
  assign (fduom, 'kod.dat');
  reset (fduom);
  assign (frez, 'kod.rez');
  rewrite (frez);
  atkoduoti (fduom, frez);
  close (fduom);
  close (frez)
end.
