Pascal :

var
q,w,e,r,t:char;
begin
read(q,w,e,r,t);
writeln(t,' ',ord(t));
writeln(r,' ',ord(r));
writeln(e,' ',ord(e));
writeln(w,' ',ord(w));
writeln(q,' ',ord(q));
end.