Заданы числа a и b. определить, эти числа одного или разных знаков

Пуск
ввод a,b;
Если (a>0 и b>0) или (a<0 и b<0), то Вывод: Одинаковые, иначе Вывод: Разные;
Останов.

Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub

вот процедура на VBA (на нем записываются макросы в Microsoft Office)

и как-то так блок-схема рисуется :D