Delphi

program tanggal_dan_waktu;
uses crt,sysutils;
begin
  clrscr;
  writeln('tanggal hari ini : ',datetostr(now));
  writeln('jam saat ini : ',timetostr(now));
  readln;
end.