Прграммирование в паскаль. оператоp case. Задать случайным образом код символа - большой русской буквы. Напечатать соответсвующую ей маленькую букву. (Комментарий: ряд маленьких русских букв в таблице ASII прерывается а...п, р....

var     randomNumber : integer; begin     Randomize();     randomNumber := random(32)+192; // Получаем случайную большую букву     writeln('Большая буква: ', chr(randomNumber));     case chr(randomNumber) of         'А'..'П' : writeln('Маленькая буква: ', chr(randomNumber+32));         'Р'..'Я' : writeln('Маленькая буква: ', chr(randomNumber+80));     end; end.