fpcdocs/sysutex/ex23.pp


1
2
3
4
5
6
7
8
9

Program Example23;

{ This program demonstrates the Time function }

Uses sysutils;

Begin
  Writeln ('The time is : ',TimeToStr(Time));
End.