uses System.SysUtils;

var
  NowValue: TDateTime;
begin
  //current date and time
  NowValue := Now;
  WriteLn(DateTimeToStr(NowValue));

  //date and time separately
  WriteLn(DateToStr(Date));
  WriteLn(TimeToStr(Time));
end.