blob: 0514bd38487a93e1a4f27581990d1c0f5930f3d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Program Example16;
{ This program demonstrates the IsLeapYear function }
Uses sysutils;
Var YY,MM,dd : Word;
Procedure TestYear (Y : Word);
begin
Writeln (Y,' is leap year : ',IsLeapYear(Y));
end;
Begin
DeCodeDate(Date,YY,mm,dd);
TestYear(yy);
TestYear(2000);
TestYear(1900);
TestYear(1600);
TestYear(1992);
TestYear(1995);
End.
|
