X,y:integer;

begin

X:= A; Y: = В;

1:IF X = Y THEN HOD:=X;

IF X > Y THEN begin

X:= X – Y; goto 1;

end;

IF Y > X THEN begin

Y:= Y – X; goto 1;

end;

end;

Begin

FOR i= 1 ТО N READ (C[i]);

A:= С ([l])

FOR i = 1 TO N–1 begin B:=С[i + 1];

A:= HOK(A,B);

end;

writeln ("HOK="; A);

end.