Program Zapisi_7;
type
rabotnik_predpriyatiya=record
stazh:integer;
zar:integer;
fam:string[15];
dolzh:string[10];
end;
  var
  i,n: integer;
  sr:real;
  anketa: rabotnik_predpriyatiya;
  r: file of rabotnik_predpriyatiya;
   begin
    assign(r,'anketa.txt');
     rewrite(r);
       close(r);
       sr:=0;
       reset(r);
        while not (eof(r)) do begin
         read(r,anketa);
         sr:=sr+anketa.zar;
         if anketa.stazh>10 then begin
         writeln(anketa.fam);
         writeln(anketa.zar);
         writeln(anketa.stazh);
         writeln(anketa.dolzh);
         end;
        end;
        sr:=sr/FileSize(r);
        reset(r);
         while not(eof(r)) do begin
         read(r,anketa);
         if anketa.zar<sr then writeln (anketa.fam,':Zarplata rabotnika nizhe srednei');
        end;
        readln
   end.