#!/usr/bin/perl
use strict;
 
my $cislo;
my ($pocet, $prumer, $soucet);
 
print "Zadávejte čísla, 0 pro konec.\n";
while (chomp ($cislo = <STDIN>)){
    if (int $cislo <= 0){
        if ($pocet == 0){
            die "Nezadal jste žádné číslo!\n";
        }
        $prumer = $soucet / $pocet;
        print "Počet: $pocet\n";
        print "Součet: $soucet\n";
        print "Průměr: $prumer\n";
        exit;
    }

    $soucet += $cislo;
    $pocet++;
} 
