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