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

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