4
{ Program to demonstrate the GetDate function. }
7
DayStr:array[0..6] of string[3]=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
8
MonthStr:array[1..12] of string[3]=('Jan','Feb','Mar','Apr','May','Jun',
9
'Jul','Aug','Sep','Oct','Nov','Dec');
11
Year,Month,Day,WDay : word;
13
GetDate(Year,Month,Day,WDay);
14
WriteLn('Current date');
15
WriteLn(DayStr[WDay],', ',Day,' ',MonthStr[Month],' ',Year,'.');