program ascii dengan pascal

program ascii;
uses wincrt;
var karakter : char ;
    askii: integer;
begin
writeln('program menentukan ASCII');
write('masukan karakter = ');
readln(karakter);
writeln('');
writeln('');
writeln('karakter yang dimasukan : ',karakter);
askii:= ord(karakter);
writeln('ascci karakter tersebut adl : ',askii);
end.