program atlag;
var f:file of integer;
    ossz,x:integer;
begin
     assign(f,'a.dat');
     reset(f);
     while not eof(f) do
     begin
          read(f,x);
          ossz:=ossz+x;
     end;
     Writeln('Atlag: ',ossz/filesize(f):10:2);
     readln
end.