[pascal] sprawdzenie wprowadzonego znaku - ascii

[stanek.94]

Witam mam taki program:

uses crt;

var

     litera:char;

     a:integer;

begin

clrscr;

        writeln('Podaj litere');

        readln(litera);

        a:=ord(litera);

        if ((a>=65) and (a<=90)) then writeln('to jest duza litera');

        if ((a>=90) and (a<=122)) then writeln('to jest mala litera');

        if ((a>=48) and (a<=57)) then writeln('To cyfra');

        if ((a>=58) and (a<=64)) then writeln('To znak');

        if ((a>=123) and (a<=126)) then writeln('to znak');

        if ((a>=33) and (a<=47)) then writeln('to znak');

 readln;

end.

Wie ktoś czy da sie to zamienic te 'if’y na ‘case’??

[drobok]

Da się ;p

[stanek.94]

heh, domyślam sie ale jak?

[drobok]

uses crt;

[stanek.94]

dzięki bardzo a ja sie z ascii męczyłem heh