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

Question

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

Ирина Омелюх Знаток (274), закрыт 7 лет назад

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

Answer 1

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.

Answer 2

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.

Источник Юрий Моисеев