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