Program Konversi Kode ASCII (Pascal)

Berikut sintaks program konversi ke kode ASCII:

program Konversi_Kode_ASCII;

uses crt;
     var x:char;
begin
     clrscr;
     write('Masukkan angka atau huruf : '); readln(x);
     write('Kode ASCII untuk ',x, ' adalah ' ,ord(x));
     readln;
end.

Selamat mencoba.