DateToStr Tampilkan Format Tanggal

program Latihan85;

{$mode objfpc}{$H+}

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

var

  Tanggal: TDateTime;

begin

  // Mencetak Tanggal di Konsole

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

  writeln('Tekan tombol ENTER untuk menutup');

  readln;


end.