{* Задача408 *}

REM basic

' Даны 2 числа d-день и m-месяц.
' Определить предыдущую дату.


CLS
INPUT "vvedite d"; d
INPUT "vvedite m"; m
d = d - 1
If d = 0 Then
    m = m - 1
    If (m And 1) = 1 And m = 8 Then d = 31 Else d = 30
    If m = 2 Then d = 28
End If
PRINT "d ="; d, "m ="; m
End