Program Merubah Angka menjadi Huruf

 program    mencarihuruf;

uses wincrt;

var

x : integer;

begin

        writeln('masukan angka:'); readln (x);

        writeln ( char ( 64 + x));

readln;

end.