program oken;
uses crt;
var n:integer;
c:char;
begin
clrscr;
write('Nhap ki tu: '); readln(c);
writeln('Ket qua tra ve so cua ',c,': ',ord(c));
write('Nhap so: '); readln(n);
writeln('Ket qua tra ve Ki tu cua ',n,': ',chr(n));{neu khong co ket qua tuc la ki tu dac biet}
readln;
end.