program BiBo212;
uses crt;
var i,n :integer;   CH :char;
begin
        clrscr;
        write('Nhap ki tu tren ban phim: ');readln(CH);
        writeln('Ma ASCII cua ki tu',Ch,' la: ',ord(CH));
        write('Nhap ma ASCII cua ban: ');readln(n);
        writeln('Ki tu tuong ung la: ',chr(n));

        readln;
end.

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.