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

Вот пример

Pascal

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('Порядковый номер рабочих,чей возраст gt; 50');
for i:=1 to 15 do begin
if mas[i]gt;50 then
write(i,' ');
end;
end.