Leap Year Checker in Pascal

 A simple program that I wrote using FreePascal as my compiler to ask the user to give a year and then the program will check if the given year is a leap year or not.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

(* leap_year.pas

   Author   : Jake Rodriguez Pomperada, MAED-IT, MIT

   Date     : October 8, 2020  Thursday

   Website  : www.jakerpomperada.com  / www.jakerpomperada.blogspot

   Email    : jakerpomperada@gmail.com

   Location : Bacolod City, Negros Occidental  *)

Program Leap_Year;

Uses Crt, sysutils;

Var nYear : integer;

Begin

  Clrscr;

  writeln;

  writeln('   Leap Year Checker in Pascal      ');

  writeln('           Created  By               ');

  Writeln(' Jake Rodriguez Pomperada,MAED-IT, MIT');

  Writeln;

  Writeln;

  write('Give a Year : ');

  readln(nYear);

  Writeln;

   if IsLeapYear(nYear) = true then

   Begin

     Writeln;

     Write('The given year ' ,nYear, ' is a Leap Year.');

   End

   else

     Begin

     Writeln;

     Writeln('The given year ' ,nYear,' not a Leap Year.');

   End;

   writeln; Writeln;

   write('End of Program');

   Readln;

  End.