#!/usr/bin/perl

sub judge($)
{
    $_ = shift;
    return 0 != (/(([13579][26])|([02468][048]))00$/ || (!/00$/ && /(([13579][26])|([02468][048]))$/));
}

for (1900, 2000, 2008, 2100) {
    printf("%d %d\n", $_, judge($_));
}