freepascal.compiler/docs/sysutex/ex25.pp

Program Example25;

{ This program demonstrates the TimeToStr function }

Uses sysutils;

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