Найти наибольший делитель среди 5 чисел

DEFLNG A-C, N
DECLARE SUB nod2(a,b,n)
CLS
PRINT "Введите 5 натуральных чисел"
INPUT a1, a2, a3, a3, a5
 
CALL nod2(a1, a2, n1)
CALL nod2(n1, a3, n2)
CALL nod2(n2, a4, n3)
CALL nod2(n3, a5, nod)
PRINT "NOD="; nod
STOP
END
 
REM процедура находит наибольший общий делитель двух чисел
REM алгоритм Эвклида 
SUB nod2(a, b, n)
IF a<b THEN SWAP a, b
n=b
FOR i=1 TO b
    c=a MOD b
    IF c<>0 THEN
        n=c
        a=b
        b=c
    ELSE
        GOTO 77
    END IF
NEXT i
77:
END SUB

min=a1
IF min>a2 THEN min=a2
IF min>a3 THEN min=a3
IF min>a4 THEN min=a4
IF min>a5 THEN min=a5
FOR i=min TO 1 STEP -1
    n=0
    IF (a1 MOD i)=0 THEN n=n+1
    IF (a2 MOD i)=0 THEN n=n+1
    IF (a3 MOD i)=0 THEN n=n+1
    IF (a4 MOD i)=0 THEN n=n+1
    IF (a5 MOD i)=0 THEN n=n+1
    IF n=5 THEN
        nod=i
        GOTO 77
    END IF
NEXT i
77:
PRINT "NOD="; nod
STOP