RosettaCodeData/Task/Date-format/Free-Pascal-Lazarus/date-format.pas

7 lines
152 B
ObjectPascal

program Format_Date_Time;
uses
SysUtils;
begin
WriteLn(FormatDateTime('yyyy-mm-dd', Now) +#13#10+ FormatDateTime('dddd, mmmm dd, yyyy', Now));
end.