FUNCTION SHOW(Q,W)
   LET t=Q
   LET p=0
   DO WHILE t>=W
      LET t=t-W
      LET p=p+1
   LOOP
   LET SHOW=p
END FUNCTION

PRINT 
PRINT "自然数の割り算をします。"
PRINT 
INPUT PROMPT "割られる自然数？ ":a
INPUT PROMPT "割る自然数？     ":b
PRINT
LET X=SHOW(a,b)
LET Y=a-b*X
PRINT a;"/";b;"＝";X;"あまり";Y
PRINT
END