Pascal ABC.net (на этом прогу делал)
program c1;
var
A: char;
begin
write('Введите символ: ');
readln(A);
case A of
'А'..'Я': writeln('Это большая русская буква');
'а'..'я': writeln('Это маленькая русская буква');
'a'..'z': writeln('Это маленькая английская буква');
'A'..'Z': writeln('Это большая английская буква');
'0'..'9': writeln('Это цифра');
else writeln('Неизвестный знак');
end;
end.