Помогите написать программу, пожалуйста.

Question

Составить программу, которая вводит с клавиатуры некоторый символ и определяет,
является ли он буквой латинского или русского алфавита, цифрой или любым другим 
символом. Использовать оператор варианта и представления о кодировке символов в 
системе программирования ABC Pascsl.

iurii_moiseev_149 · Accepted Answer

var c:char;
begin
readln(c);
if c in ['a'..'z','A'..'z'] then writeln('Lat. bukva') else
if c in ['а'..'я','А'..'Я'] then writeln('Rus. bukva') else
if c in ['0'..'9'] then writeln('Cifra') else
writeln('Ne znaju')
end.

user_3231338 · Answer

var c:char;
begin
readln(c);
case c of
'a'..'z','A'..'Z': writeln('Lat. bukva');
'а'..'я','А'..'Я': writeln('Rus. bukva');
'0'..'9': writeln('Cifra'); 
else writeln('Ne znaju');
end;
end.
Источник Юрий Моисеев