Склавиатуры вводится дата в формате чч.мм.гг. опрведелитеи предыдущую дату. например для даты 01,10,15 нужно 30,09,15

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadlnString;

 var d: DateTime;

 if DateTime.TryParse(s, d) then $'{(d.AddDays(-1).Date):dd.MM.yy}'.Println

 else Println('Неверная дата')

end.

1.3.1828.02.18

10.10.18-9.10.18
23.01.19-22.01.19
01.01.20-31.12.19
01.12.18-30.11.18