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

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

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