Задачка В ПАСКАЛЕ МОЛЮ ЧТО ПИСАТЬ Надобно АА ПОМОГИТЕСоздать программку для

//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.

Тестовое решение:
Количество воспитанников и количество оценок
3 3
Воспитанник 1 оценка 1 = 3
Воспитанник 1 оценка 2 = 4
Воспитанник 1 оценка 3 = 4
Воспитанник 2 оценка 1 = 5
Воспитанник 2 оценка 2 = 4
Ученик 2 оценка 3 = 4
Воспитанник 3 оценка 1 = 4
Ученик 3 оценка 2 = 3
Ученик 3 оценка 3 = 3
Средняя оценка группы  3.778