{* Задача 262 *}

Unit ZADACH262;
Interface
Implementation
Begin
 writeln('Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае. ');
End.

Program lr6;

Uses zadach262.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  f                : text;
  n                : word;
  i                : word;
  max              : word;
  bol              : boolean;
  xxx              : char;
  st               : String;
  st2              : String;
Function MCase(s : char);
Var {* Необходимые переменные *}
  i : Integer;
Begin
  MCase := s;
  Case s Of          'A'..'Z', 'А'..'Я' : MCase := Chr(Ord(s) + 32);
    'Ё' : MCase := 'ё';
End;

  End;
  Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введи символ:');
  readln(xxx);
  writeln('Полученный символ:');
  writeln(MCase(xxx));
  readkey; {* Ждем нажатия любой клавиши *}
  End...