program tekan tombol

Program TekanTombol;
Uses WinCrt;
Label
   Mulai;
Var
   Tombol,
   Jawab : Char;
Begin
 Mulai:
  ClrScr;
  Writeln('PROGRAM TENTUKAN TOMBOL');
  Writeln('-----------------------');
  Write('Tekan Sembarang TOMBOL : ');
  Readln(Tombol);
  Case Tombol Of
   'a'..'z','A'..'Z' : Begin
                         Writeln('Anda menekan tombol ',Tombol);
                         Writeln('Tombol ',Tombol,' Termasuk HURUF');
                       End;
   '0'..'9'          : Begin
                         Writeln('Anda menekan tombol ',Tombol);
                         Writeln('Tombol ',Tombol,' Termasuk ANGKA');
                       End;
   Else
                      Begin
                         Writeln('Anda menekan tombol ',Tombol);
                         Writeln('Tombol ',Tombol,' Bukan HURUF/ANGKA');
                       End;
  End;
  writeln;
  Write('Mau mencoba lagi [Y/T] ? ');Readln(jawab);
  If (Jawab = 'Y') or (Jawab = 'y') Then
  Goto mulai
End.