pascal

word; end;
VAR
 n,i,srednya_zp:integer;
 man:array [1..15] of rabochi;

begin
 writeln('skolko rabochih?');
 readln(n);
 for i:=1 to n do
  with man[i] do
  begin
   writeln('Familia rabochego #',i);
   readln(surname);
   writeln('Ego zarplata:');
   readln(zp);
   writeln('Skolko let rabotaet?');
   readln(stazh);
   writeln('Dolzhnost`:');
   readln(profession);
  end;
 srednya_zp:=0;
 for i:=1 to n do
begin 
  WITH man[i] do begin srednya_zp:=srednya_zp+zp;
 srednya_zp:=srednya_zp div n;
 writeln;
 writeln('Bolee 10 let prorabotali:');
 write('Surname':13);
 write('Zarplata':13);
 write('Stazh raboti':13);
 writeln('Dolzhnost':13);
end;
end;
 for i:=1 to n do
  with man[i] do
   If stazh>10 then
   begin
    write(surname:12);
    write(zp:12);
    write(stazh:12);
    writeln(profession:12);
   end;
 writeln;
 writeln('Ih zarplata nizhe srednei:');
 for i:=1 to n do
  with man[i] do
   If zp<srednya_zp then writeln(surname);
 readln;
end.