Паскаль абс оператор саsе Ввести с клавиатуры букву 7-го класса. Определить его тип: а - гимназический, б - математический, в - обычный, г - коррекция. (Буква может быть большой или маленькой).

var     letterOfClass : string; begin     write('Введите букву класса: ');     readln(letterOfClass);     case letterOfClass of         'a','A' : writeln('7-', letterOfClass, ' это гимназический класс.');         'b','B' : writeln('7-', letterOfClass, ' это математический класс.');         'v','V' : writeln('7-', letterOfClass, ' это обычный класс.');         'g','G' : writeln('7-', letterOfClass, ' это клас корреции.');         else writeln('Класса с такой буквой нет');     end; end.

// PascalABC.Net 3.0, сборка 1066 const   s1='АБВГабвг';   s2='12341234'; var   c:char;   i:integer; begin   Write('Введите букву класса: '); Readln(c);   i:=Pos(c,s1);   if i>0 then begin     c:=s2[i];     case c of     '1':Writeln('гимназический');     '2':Writeln('математический');     '3':Writeln('обычный');     '4':Writeln('коррекционный')     end   end   else Writeln('Неверная буква') end. Тестовое решение: Введите букву класса: Б математический Примечание: работа программы также проверена в Borland Pascal 7.01