PRINT 
INPUT PROMPT "割られる０以上の自然数は？　":m
INPUT PROMPT "割る１以上の自然数は？　":n
PRINT 
LET k=m/n
CALL HINT(k)
LET s=m-C*n
PRINT C;"あまり";s
PRINT

SUB HINT(X)
   LET C=O
   IF X<1 THEN GOTO 20
10    LET X=X-1
      LET C=C+1
      IF X>1 THEN GOTO 10
20 END SUB

END



#########################################################################



PRINT 
INPUT PROMPT "割られる０以上の自然数は？　":m
INPUT PROMPT "割る１以上の自然数は？　":n
PRINT 
CALL KAN(m,n)
PRINT C;"あまり";m
PRINT

SUB KAN(X,Y)
C=0
IF X<Y THEN 20
10 LET X=X-Y
LET C=C+1
IF X>=Y THEN GOTO 10
20 END SUB

END