Answer:
Start
Step1: FUNCTION FINDFAC(A)
STEP 2: FOR I =1 TO A%2 j=1
STEP 3: IF A%I= 0
STEP 4: ARRAY[j]=i
STEP 5: J=J+1
STEP 6: NEXT I
STEP 7: RETURN ARRAY
STEP 8: ARRAY 1 =FINDFAC(18)
STEP 9: ARRAY 2= FINDFAC(24)
STEP 10: I =0 K=0
STEP 11: WHILE LEN(ARRAY1) AND LENT(ARRAY2)
STEP 11: FOR I =1 TO LEN(ARRAY 2)
STEP 12: IF ARRAY1[I]= ARRAY[I]
STEP 13: ARRAY3[K]=ARRAY[I]
STEP14: K=K+1
STEP15: NEXT I
STEP16: HCF= 1
STEP 17: FOR I =0 to K
STEP 18: HCF= HCF* ARRAY3[K]
STEP 19: K=K+1
STEP 20: NEXT K
STEO 21: PRINT HCF
STEP 22: STOP
Explanation:
Please check the answer section
