zadach185.BAS

{* Задача185 *}

REM basic

' Ввести два числа, разделить первое на второе,
' вывести результат. Если второе число равно 0, то сообщить об этом
' и повторить ввод.


CLS
On Error GoTo m1        
m2: INPUT x, y
PRINT x / y
End
m1:                    
        PRINT "Повторите ввод"
GoTo m2