Pascalda Girilen Karakterin Harf, Rakam ve Özel Karakter Olduğunu Bulan Program

uses crt;
var
        CH:char;
Begin
        Write('Bir karakter giriniz='); Readln(CH);

        If CH In ['A'..'Z','a','z'] Then
        Writeln('Girilen karakter HARF tir.');

        If CH In ['0'..'9'] Then
        Writeln('Girilen karakter RAKAM dır.');

        If CH In ['?','/','%','#','-','+','*'] Then
        Writeln('Girilen karakter ÖZEL KARAKTER dir.');

        Readln;
End.