DateToStr Tampilkan Tanggal Sekarang

program Latihan86;

{$mode objfpc}{$H+}

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

begin

  writeln('Tanggal Sekarang: ',DateToStr(Now));

  writeln('Tekan tombol ENTER untuk menutup');

  readln;


end.