Sub Delitsa
Dim N1 As Integer, N2 As Integer, Ch As Integer, Ost As Integer
N1 = Input "Введите 1 число"
N2 = Input "Введите 2 число"
Ch = Int(N1 / N2) ' Целая часть частного от деления
Ost = N1 Mod N2 ' Остаток от деления N1 на N2
If Ost = 0 Then
Print "Делится"
Print "Частное: " & Ch
Else
Print "Не делится"
Print "Частное: " & Ch & ", остаток: " & Ost
End If
End Sub