begin
var s := ReadlnString;
var d: DateTime;
if DateTime.TryParse(s, d) then $'{(d.AddDays(-1).Date):dd.MM.yy}'.Println
else Println('Неверная дата')
end.
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.1823.01.19-22.01.19
01.01.20-31.12.19
01.12.18-30.11.18