#!/usr/bin/perl
# your code goes here
{
	my @data;
	
	for (1, 21, 31, 41, 51, 61, 71, 81, 91) {
		$data[$_] = 1;
	}
	
	for (2..4, 22..24, 32..34, 42..44,
		 52..54, 62..64, 72..74, 82..84, 92..94) {
		$data[$_] = 2;
	}
	
	for (0, 5..9, 10..20, 25..30,
    	 35..40, 45..50, 55..60, 65..70,
         75..80, 85..90, 95, 96, 97, 98, 99) {
        $data[$_] = 3;
    }
    
    sub plural($$$$) {
    	return $_[$data[$_[0] % 100]];
    }
}

for (1..5, 34, 35, 180, 181, 182, 255) {
	printf "%d %s\n", $_, plural($_, 'день','дня','дней');
}