{* Задача298 *}

REM basic

' Программа, которая печатает пример столбиком на деление с остатком двух заданных натуральных чисел?


CLS
INPUT "delimoe=", a
INPUT "delitel=", b
n = 5
m = 4
LOCATE n, m
PRINT  a; ":"; b
a1 = a
Do
f = f + 1
c = a1  b
k = 1
Do While c > 9
c = c  10
k = k * 10
Loop
n = n + 1
LOCATE n, m
PRINT "-"; b * c;
If f = 1 Then PRINT "    "; a  b Else PRINT
a1 = a1 - b * c * k
a2 = a1
Do While a2  b > 10
a2 = a2  10
Loop
n = n + 1
m = m + 1
LOCATE n, m
PRINT  a2
Loop Until a1 < b
PRINT "result="; a  b
End