program kocka_egyszerdob;
var n,i,ossz,d:integer;
begin
     Writeln('Kerem a dobasok szamat!');
     Readln(n);
     randomize;
     for i:=1 to n do
     begin
       d:=random(6)+1;
       ossz:=ossz+d;
       Writeln(i:3,' dobas utan az atlag: ', ossz/i:7:2);
       Readln;{hogy lassuk is az eredmenyt}
     end;
     Readln;
end.