Вмассивах хранятся заработные платы работников предприятия посчитать среднюю заработную плату учитывая что работник работать

Program gt;
var n,i:integer;
a,s:real;
begin
read(n);
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
s:=s/n;
writeln(s);
end.
n-кол-во работников
после этого зарплата каждого работника вводится внутри цикла for