1. получить стартовые координаты
2. перейти на стартовые координаты
3. выбрать цвет кисти
4. входим в цикл обнуление всех счетчиков
4.1 проверяем количество повортов если оно равно 4 на выход иначе продолжаем
4.2 проверям не конец ли рамки если конец поврот на 90 градусов
4.3 чертим штрих
4.4 сдвигаемся на шаг
4.5 возвращаемся в пункт 4.1
// 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.
<em><u>Тестовое решение:</u></em>
Введите букву класса: Б
математический
<em><u>Примечание: работа программы также проверена в Borland Pascal 7.01</u></em>
Ответ:
CD AC3 DVD-AUDIO MP3 AAC WMA
Объяснение: