const n=10; 
var a,b,c:array[1..n] of integer;
i:integer; 
function NOD(x,y:integer):integer;
begin
while (x<>0)and(y<>0) do
 if x>y then x:=x mod y else y:=y mod x;
NOD:=x+y;
end;
begin
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
 b[i]:=random(21);
 write(b[i]:3);
 end;
writeln;
for i:=1 to n do c[i]:=NOD(a[i],b[i]);
writeln('Массив c:');
for i:=1 to n do write(c[i]:3);
writeln;
end.

Пример:
Массив A:
 11 12 15 17 12 18 11 17  8 13
Массив B:
 13  8  9  6 18  1 20  5  8 10
Массив c:
  1  4  3  1  6  1  1  1  8  1