uses crt; var st,st1,st2:string; i,j,l:integer; begin clrscr; write('Nhap ma can chuyen: '); readln(st); st1:=copy(st,1,2); val(st1,j,l); write(' ',chr(j)); i:=3; while i<=length(st) do begin st1:=copy(st,i,2); val(st1,j,l); if j>=65 then write(chr(j+32)) else write(chr(j)); i:=i+2; end; readln; end.