TimeToStr di Konsol

program Latihan84;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils
  { you can add units after this };

var

  Time : TDateTime;

begin

  writeln('Current time : ', TimeToStr(Time));
  writeln('Tekan tombol ENTER untuk menutup');
  readln;


end.