FUNCTION multiply(a,b)
   LET c=0
   DO WHILE a<>0
      IF MOD(a,2)<>0 THEN LET c=c+b
      LET b=b*2
      LET a=INT(a/2)
   LOOP
   LET multiply=c
END FUNCTION

INPUT PROMPT "掛けられたい自然数は？　": x
INPUT PROMPT "掛けたい自然数は？　": y
PRINT "２つの自然数の掛け算の結果："; multiply(x,y)
END