program prirodzene;
var n,i,suma,pocet_cisel,gen:integer;
     priemer:real;
begin
writeln('Zadaj pocet prirodzenych cisel:');
readln(n);
randomize;
suma:=0; {inicializujeme sumu na 0}
pocet_cisel:=0;
for i:=0 to n do begin
        gen:=random(101); {vygenerujeme cislo a ulozime do premennej pre dalsie pouzitie}
        write(gen);
        if (i<n) then write(', '); {pre prvych n-1 cisel vypiseme ciarku}
        if(gen mod 2=0) then begin
                suma:=suma+gen; {premennu suma zvacsime len ak je to parne cislo}
                pocet_cisel:=pocet_cisel+1; {zvacsime pocet cisel o 1}
        end;
end;
writeln;
priemer:=suma/pocet_cisel;
writeln('Aritmeticky priemer z ',pocet_cisel,'cisel je ', priemer);
readln;
end.