//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var a,n,k,i,j,s:integer; begin writeln('Количество учеников и количество оценок'); readln(n,k); for i:=1 to n do begin for j:=1 to k do begin write('Ученик № ',i, ' оценка № ',j,' = '); readln(a); s:=s+a; end; end; println('Средняя оценка группы ',s/(n*k):6:3); end.
1) Начало
2) Встать со стула
3) Повернуться налево
4) Пройти 6 шагов
5) Повернуть направо
6) Пройти 13 шагов
7) Повернуть налево
8) Пройти 5 шагов
9) Повернуть налево
10) Взять чайник
11) Открыть кран
12) Подставить чайник
13) Набрать воду
14) Убрать чайник
15) Закрыть кран
16) Поставить чайник
17) Конец
Насколько больше незнаю) Сорри