Program Case 5

program deteksi;

uses crt;

var karakter:char;

input:string;

begin

        clrscr;

        write('masukkan satu karakter: ');

        readln(karakter);

case karakter of

'A'..'Z' : input:='huruf kapital';

'a'..'z' : input:='huruf kecil';

'0'..'9' : input:='angka';

else input :='simbol';

end;

writeln('data yang anda masukkan adalah: ',input);

readln;

end.