program GetCurrentDateTime;
uses
SysUtils;
var
currentDateTime: TDateTime;
formattedDateTime: string;
begin
currentDateTime := Now;
formattedDateTime := FormatDateTime('yyyy-mm-dd hh:nn:ss', currentDateTime);
WriteLn('Current date and time: ', formattedDateTime);
end.
(*
run:
Current date and time: 2025-05-05 19:38:12
*)