program fajlok;
const N = 5;
var t:text; i, szam, osszeg, db:integer;
begin
  randomize;
  assign(t, 'fajl.txt');
  rewrite(t);
  for i := 1 to N do
  begin
    writeln(t, random(10));
  end;
  reset(t);
  db := 0; osszeg := 0;
  while not(eof(t)) do
  begin
    readln(t, szam);
    write(szam, ' ');
    osszeg := osszeg + szam;
    db := db + 1;
  end;
  writeln;
  writeln('Osszeg: ', osszeg);
  writeln('Atlag: ', (osszeg / db):4:1);
  close(t);
  readln;
end.