Program Belajar Huruf

program belajarhuruf;
uses wincrt;

var
   i : char;

begin
     writeln ('masukan huruf besar atau kecil:'); readln(i);

             if ( ord (i) >= 65 ) and ( ord (i) < 97 ) then
                begin
                     writeln (' Huruf Kapital ');
                     writeln (' Huruf ke ', ord (i)-64);
                end
                else
                begin
                     writeln (' Huruf Nonkapital ');
                     writeln (' Huruf Ke ', ord (i)-96);
                end;
     readln;
end.