Qbasic program to enter any two numbers and display the HCF and LCM
DECLARE FUNCTION HCFLCM(A, B) CLS INPUT "ENTER ANY TWO NUMBERS"; A, B PRINT “L.C.M=”; HCFLCM (A, B) END FUNCTION 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 HCFLCM = L END FUNCTION