program ukazka1; {spocita prumer vstupujici posloupnosti kladnych ukoncene cislem KONEC} const Konec = 0; {ukonceni vstupni posloupnosti} var N, {vstupujici cislo} SUMA, {soucet vstupujicich cisel} POCET : integer; {pocet vstupujicich cisel} PRUMER : real; {prumer vstupujicich cisel} begin SUMA:= 0; POCET:= 0; read(N); while N<>KONEC do begin POCET:= POCET+1; SUMA:= SUMA+N; read(N); end; if POCET > 0 then begin PRUMER := SUMA/POCET; writeln('Průměr',POCET, 'čísel je ', PRUMER ) end else writeln( 'Prázdný vstupní soubor') end.