Write a qbasic program to display the LCM of any two input numbers.

CLS

INPUT "Enter any two numbers ";a , b

FOR j=1 TO a

       IF a MOD j=0 AND b MOD j=0 THEN 

              Hcf=j

       END IF

NEXT j

LCM=(a*b)/Hcf

PRINT "LCM= ";LCM

END