Учитель вводит оценки за урок. ввод оценок заканчивается, если введено 6. находиться среднее арифметическое всех введенных

// Пример программы на языке Паскаль.

var    a, i, sum : integer;    // объявляем переменные целочисленного типа.   y : real;                  // объявляем переменную вещественного типа.begin   writeln (\'введите оценки за урок, окончание ввода - число 6:\'); //вывод строки на экран.   while a <> 6 do        // начало цикла.      begin          readln (a);                   // считываем число, введенное с клавиатуры.          sum := sum + a;         // считаем сумму оценок.          i := i + 1;                   // считаем количество оценок.      end;  y := round( sum / i, 2);                          // считаем среднее арифметическое оценок.  if y < 3.5 then      write (\'Результат плохой.\')                //вывод строки на экран.  else      write (\'Материал усвоен успешно.\'); //вывод строки на экран.end.