Var
Symbol: char;
begin
write(Введите латинскую букву или цифру: );
readln(Symbol);
case Symbol of
a..z: writeln(Это маленькая буква);
A..Z: writeln(Это большая буква);
0..9: writeln(Это цифра);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.