ngarang bebas

program tipe_subrange;
uses crt;
type
  huruf= 'A'..'K';
var
  a,b,c,d,e,f,g,h,i,j,k: huruf;
begin
  clrscr;

  a:= 'a';
  a:= 'b';
  a:= 'c';
  a:= 'd';
  a:= 'e';
  a:= 'f';
  a:= 'g';
  a:= 'h';
  a:= 'i';
  a:= 'j';
  a:= 'k';
  writeln('a: ',ORD(a));
  writeln('b: ',ORD(b));
  writeln('c: ',ORD(c));
  writeln('d: ',ORD(d));
  writeln('e: ',ORD(e));
  writeln('f: ',ORD(f));
  writeln('g: ',ORD(g));
  writeln('h: ',ORD(h));
  writeln('i: ',ORD(i));
  writeln('j: ',ORD(j));
  writeln('k: ',ORD(k));
  readln;
end.