Type
 rabotnik_predpriyatiya=record
 fam:string[15];
 name:string[10];
 dolzh:string[15];
 stazh:integer;
 zar:integer;
end;

 var
 a:array[1..60] of rabotnik_predpriyatiya;
 fin,fout:text;
 i,n,max,min,k,j:integer;
 sum:real;

 begin
  assign(fin,'spisok.pas');
  reset(fin);
  i:=0; n:=0;
 repeat
 i:=i+1;
 with a[i] do
 readln(fin,fam,name,dolzh,stazh,zar);
 n:=n+1;
 until eof(fin);
 close(fin);

 assign (fout,'spisok2.pas');
 rewrite(fout);
 for j:=1 to i do
  if a[i].stazh>10 then
  begin
   writeln('rabotnik', a[i].fam,'', a[i].name);
   writeln('dolzhnost', a[i].dolzh);
   writeln('ego stazh', a[i].stazh);
   writeln('poluchaet zarplatu', a[i].zar);
  end;

 sum:=0; max:=0; min:=10000; k:=0;
  for i:=1 to n do begin
  if a[i].zar<min then min:=a[i].zar;
  sum:=sum+a[i].zar;
  end;
  if a[i].zar<sum then k:=k+1;
  sum:=sum/n;
  writeln('Srednia zar.plata=',sum:5:2);
  if a[i].zar<sum then writeln('Zarplata','', a[i].fam,'','nizhe srednei');
   close(fout);
end.