zadach184.BAS

{* Задача184 *}

REM basic

' Составить программу, позволяющую многократно рассчитывать
' 'произведение двух чисел. Для выхода из программы нужно ввести 0, 0


CLS
NewAB:
INPUT "Введите A, B. (0, 0) для выхода. {, A, B
}If A  0 Or B  0 Then
        PRINT A * B
        GoTo NewAB   {Передаем управление в INPUT
}Else
        End
End If
End