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’??