#!/usr/bin/perl

sub zadne_zdarzenie {
	my $wynik = 1;
	while ( @_ ) {
		$wynik *= (1  shift);
	}
	return $wynik;
}


print zadne_zdarzenie(0.64, 0.52, 0.5)
