Даны числа b1, b2, …, b9. Определите среднее арифметическое тех из них, которые
больше 10.

ЯЗЫК:PASCAL

var a,b,c,d:integer;beginwriteln('введите 9 чисел ');d:=9;b:=0;while (d<>0) do beginread(a);if (a>10) then begin b:=a+b; c:=c+1;end;d:=d-1;end;writeln('среднее арифметическое ',b/c);end.