Kode ASCII dengan Pascal

program ordinarii;
uses crt;
var
  a:string;
  b:integer;
begin
clrscr;

a:=chr(85);
writeln(a);
b:=ord('U');
writeln(b);

    readln;
end.