Имеется список 15 членов бригады с указанием их возраста. Определить средний возраст членов бригады и порядковые номера работников, чей возраст больше 50 лет.

var mas:array [1..15] of integer; i,b:integer; ar:real; begin b:=0; writeln('Введите возраст рабочих'); for i:=1 to 15 do begin read(mas[i]); b:=b+mas[i]; end; ar:=b/5; writeln('Средний возраст = ', ar); writeln('Порядковый номер рабочих,чей возраст > 50'); for i:=1 to 15 do begin if mas[i]>50 then write(i,' '); end; end.