Sub var12_2()
    Dim S As Single, x1 As Single, y1 As Single, x2 As Single, y2 As Single
    S = InputBox("Ââåäèòå S: ")
    x1 = InputBox("Ââåäèòå x1: ")
    y1 = InputBox("Ââåäèòå y1: ")
    x2 = InputBox("Ââåäèòå x2: ")
    y2 = InputBox("Ââåäèòå y2: ")

    If S < (x2 - x1) * (y2 - y1) Then
        MsgBox ("Èçíà÷àëüíî S ìåíüøå ïëîùàäè ïðÿìîóãîëüíèêà")
        Exit Sub
    End If

    Do While S >= (x2 - x1) * (y2 - y1)
        MsgBox ("(x2,y2) = (" & x2 & "," & y2 & ")")
        MsgBox ("Ïëîùàäü ðàâíà: " & (x2 - x1) * (y2 - y1))
        x2 = x2 + 1
        y2 = y2 + 1
    Loop
    MsgBox ("(x2,y2) = (" & x2 & "," & y2 & ")")
    MsgBox ("Ïëîùàäü ðàâíà: " & (x2 - x1) * (y2 - y1))

End Sub