Program n2; var num: char; begin readln(num); case num of 'a'..'z': writeln('латинская строчная буква'); 'A'..'Z': writeln('латинская прописная буква'); 'а'..'я': writeln('русская строчная буква'); 'А'..'Я': writeln('русская прописная буква'); end; end.