дан одномерный массив натуральных чисел получить из него другой массив составленный из наименьших общих кратных двух соседних чисел. pascal abc СРОЧНО!!

//PascalABC.Net 3.2function NOK(a, b: integer):integer;beginwhile a<>b do  if a>b then a-=b else b-=a;result:=a;end;beginvar a:=ReadArrInteger('Вводите: ', readinteger('Размерность массива: '));var b: array of integer; setLength(b, length(a)-1);for var i:=0 to length(a)-2 do b[i]:=(a[i]*a[i+1]) div NOK(a[i], a[i+1]);a.Println;b.Print;end.

VarA,B:array[1..10000] of integer;i,j,M,N:integer;BeginWrite('N = ');ReadLn(N);Write('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(10)+1;    Write(A[i],' ');    End;WriteLn;Write('Полученный массив: ');For i:= 1 to N-1 do    Begin    if A[i]>A[i+1] then M:=A[i]    else M:=A[i+1];    j:=M-1;    Repeat    j:=j+1;    Until (j mod A[i] = 0)and(j mod A[i+1] = 0);    B[i]:=j;    Write(B[i],' ')    End;End.