program TomorrowDate;
uses SysUtils;
var
today, tomorrow: TDateTime;
begin
// Get today's date
today := Now;
// Calculate tomorrow's date by adding one day
tomorrow := today + 1;
WriteLn('Tomorrow''s date is: ', FormatDateTime('yyyy-mm-dd', tomorrow));
end.
(*
run:
Tomorrow's date is: 2025-04-10
*)