Учитель вводит оценки за урок. ввод оценок заканчивается, если введено 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 - результат плохой