Помогите, пожалуйста, срочно Нужно написать программу в паскале Найти наименьшее общее кратное n натуральных чисел, используя алгоритм евклида.

var i, a, b, t, d, n : integer;x : array of integer;begin    read(n);    SetLength(x, n + 1);    for i := 1 to n do        read(x[i]);    a := x[1];    for i := 2 to n do begin        b := x[i];        d := a * b;        while (b > 0) do begin            t := a;            a := b;            b := t mod b;        end;        a := d div a;    end;    writeln(a);end.