Перевод программы с Visual Basic на Pascal!!! Sub dat() Dim vData As String On Error GoTo metka vData = InputBox("Введите дату по образцу: дд.мм.гг") If vData = "" Then Exit Sub If vData Like "##.##.##" = True Then If Left(DateValue(vData), 6) & Right(DateValue(vData), 2) = vData Then MsgBox "День: " & Left(vData, 2) & vbCr & "Месяц: " & Mid(vData, 4, 2) & vbCr & "Год: " & Right(vData, 2) Else metka: MsgBox "Такой даты в календаре не существует" End If Else MsgBox "Дата введена не по образцу" End If End Sub