Task

Determine whether a given year is a leap year in the Gregorian calendar.



See also

 Leap year (wiki)


program TestLeapYear;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Year: Integer;
 
begin
  Write('Enter the year: ');
  Readln(Year);
  if IsLeapYear(Year) then
    Writeln(Year, ' is a Leap year')
  else
    Writeln(Year, ' is not a Leap year');
  Readln;
end.