Плиз помогите мне нужно ответь Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей даты '05.05.2005 17:05:05'.

//Pascal ABC.NET 3.1 сборка 1256 uses  system; Var  d:datetime; begin {так как изначальное значение переменной d равно 01.01.0001 0:00:00, вычитаем из года, месяца и дня единицу} d:=d.AddYears(2004).AddMonths(4).AddDays(4).AddSeconds(5).AddMinutes(5).AddHours(17); d:=d.AddDays(500).AddHours(50).AddMinutes(50).AddSeconds(50);writeln(d,' ',d.DayOfWeek); end. Вывод: 19.09.2006 19:55:55 Tuesday

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 uses System; begin   var d:=DateTime.Parse('05.05.2005 17:05:05');   Writeln('Исходная дата: ',d);   d:=d.AddDays(500).AddHours(50).AddMinutes(50).AddSeconds(50);   Writeln('Полученная дата: ',d,' ',d.DayOfWeek); end. Результат Исходная дата: 05.05.2005 17:05:05 Полученная дата: 19.09.2006 19:55:55 Tuesday