#!/usr/bin/perl

use strict;
use warnings;

my ($rok, $a, $b, $c, $x, $y, $d, $e);

$rok=$ARGV[0];
# Wzory Gaussa, w ślad za Delt-ą 12 (1984)

$a = $rok % 19;
$b = $rok % 4;
$c = $rok % 7;
if ( $rok>= 1583 && $rok<=1699) { 
	$x=22; $y=2;
} elsif ( ($rok>= 1700) && ($rok<=1799) ) {
# Huh
	$x = 23 ;
	$y = 3;
} elsif ( $rok>= 1800 && $rok<=1899) {
	$x=23; $y=4;
} elsif ( $rok>= 1900 && $rok<=2099) {
	$x=24; $y=5;
} else { 
	print "Rok: $rok jest poza zakresem 1583-2099\n";
}
$d = (19*$a + $x) %30;
$e = (2*$b+4*$c+6*$d+$y) % 7;

my ($dd, $res);

if ( ($d + $e) <= 9) { 
	$res = (22+$d + $e) . " marca";
} else { 
	$dd = $d + $e - 9;
	if( $d == 28 && $a<10 && ($dd == 25 || $dd == 26)) { 
		$dd=18;
	}
	$res = $dd . " kwietnia";
}
print "W roku $rok Wielkanoc wypada $res\n";