REM to print hcf and lcm DECLARE SUB lcm (a, b) CLS INPUT "enter two numbers"; a, b CALL lcm(a, b) END SUB lcm (a, b) FOR i = 1 TO a IF a MOD i = 0 AND b MOD i = 0 THEN h = i NEXT i PRINT "hcf="; h PRINT "lcm="; (a * b) / h END SUB