fpcdocs/sysutex/ex8.pp


1
2
3
4
5
6
7
8
9

Program Example8;

{ This program demonstrates the DayOfWeek function }

Uses sysutils;

Begin
  Writeln ('Today''s day is ',LongDayNames[DayOfWeek(Date)]);
End.