program lab_22;
uses crt;
var f:file of integer;
    g1,g2,i,k,k2,p,pos,sum,m,n:integer;
    ser_arufm:real;
begin
clrscr;
k:=1; k2:=0; pos:=0; p:=0;
assign(f,'file.dat');
rewrite(f);
writeln('Vvedit kol. chusel'); readln(m);
for i:=1 to m do begin
writeln('Vvedit chuslo'); readln(n);
seek(f,filesize(f));
write(f,n); end; close(f);
reset(f);
for i:=1 to filesize(f)-1 do
begin
if i+1<>filesize(f) then begin
seek(f,i); read(f,g1);
seek(f,i+1); read(f,g2);
if g2=filesize(f) then inc(k);
if g2>g1 then inc(k);
if g1>g2 then k:=1;
pos:=i; end;
if k2<k then begin k2:=k; p:=pos; end;
end;
close(f);   writeln(p);
sum:=0;
reset(f);
for i:=p+1 downto 0 do
begin
if i<>filesize(f)then begin
seek(f,i); read(f,g1); writeln('g1',g1);
sum:=sum+g1; writeln('sum',sum);

end;  end;
close(f); ser_arufm:=sum/k2;
writeln('kol',k2,' ser.arufm',ser_arufm:4:2);
readkey;
end.