#!/usr/bin/perl 

# Oblicza sume:
#   $start + ($przyrost * 0) +
#   $start + ($przyrost * 1) +
#   $start + ($przyrost * 2) + ...
# dla $wyrazy wyrazow.
sub ciag_arytmetyczny {
    my ($start, $przyrost, $wyrazy) = @_;
    return $wyrazy * ($start + ($wyrazy - 1) * ($przyrost / 2));
}

# Oblicza sume:
#   $start * ($mnoznik * 0) +
#   $start * ($mnoznik * 1) +
#   $start * ($mnoznik * 2) + ...
# dla $wyrazy wyrazow.
sub ciag_geometryczny {
    my ($start, $mnoznik, $wyrazy) = @_;
    return unless $mnoznik < 1 and $mnoznik > -1;
    return $start * (1 - $mnoznik ** $wyrazy) / (1 - $mnoznik);
}

print ciag_geometryczny(1, 0.5, 49), "\n";