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

Var a,s,n:integer;
begin
  repeat
    writeln('Введите оценку ');readln(a);
    if alt;gt;6 then begin
      n:=n+1; s:=s+a;
    end;
  until a=6;
  if(s/n)lt;3.5 then writeln(s/n,' - итог плохой')
  else writeln(s/n,' -  материал усвоен успешно');
end.

Тест 1
Введите оценку
3
Введите оценку
4
Введите оценку
5
Введите оценку
6
4 -  материал усвоен удачно

Тест 2
Введите оценку
3
Введите оценку
2
Введите оценку
4
Введите оценку
3
Введите оценку
6
3 - результат плохой