Qbasic program to enter any two numbers and display the HCF and LCM
DECLARE SUB HCFLCM(A, B) CLS INPUT "ENTER ANY TWO NUMBERS"; A, B CALL HCFLCM (A, B) END SUB HCFLCM (A, B) C = A D = B WHILE A MOD B < > 0 T = A MOD B A = B B = T WEND L = C * D / B PRINT "H.C.F="; B PRINT "L.C.M="; L END SUB