Символьная информация

[KateMM]

Как проверить, являются ли буквы в программе буквами русского алфавита??

[McFrey]

var c:char;
begin
write('Введите символ ');
readln(c);
if c in ['А'..'п','р'..'ё'] then write('Это русская буква')
else write('Это не русская буква');
readln
end.

__________________
помог?!-ткни весы))

[KateMM]

Спасибо Большое!