// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (d,m,y):=ReadInteger3('Введите через пробел день, месяц, год:');
try
var dt:=(new System.DateTime(y,m,d)).ToShortDateString;
Writeln('Принята дата ',dt);
except
Writeln('Некорректная дата')
end
end.
Примеры
Введите через пробел день, месяц, год: 8 10 2017
Принята дата 08.10.2017
Введите через пробел день, месяц, год: 29 2 2017
Некорректная дата