#!/usr/bin/perl

my $prawd = 1;
for ( $i = 1; $i <= 50; ++$i ) {
    $prawd *= (366-$i) / 365;
    printf " %3d - %5.3f", $i, $prawd;
    print "\n" if $i % 5 == 0;
}

