Учитель вводит оценки за урок. ввод оценок заканчивается, если введено 6. находиться среднее арифметическое всех введенных оценок. если ср.арифм. меньше 3,5 , то вывод сообщения "результат плохой", иначе вывести сообщение "материал усвоег успешно"

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

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

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