TimeToStr Menampilkan Jam Sekarang

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

  // Mencetak Format Waktu di Konsol
  // writeln('Current time : ', TimeToStr(Time));

  // Di bawah ini kodenya diganti Time menjadi Now untuk menampilkan
  // waktu saat ini
  writeln('Current time: ', TimeToStr(Now));

  writeln('Tekan tombol ENTER untuk menutup');
  readln;


end.