Nếu có sai thì nói mình nhé.

==============================

program Hello;
uses crt;
var n,bcnn,k,i:integer;
    a:array[1..100000] of integer;
begin
    clrscr;
    write('n = '); readln(n);
    write('Nhap mang: ');
    for i:= 1 to n do
        read(a[i]);
    while k = 0 do
        begin
            inc(bcnn); {cộng thêm 1 cho bội}
            k:=1; {k = 1 để kết thúc vòng lặp nếu tìm được bội chung nhỏ nhất **}
            for i:=1 to n do
                if bcnn mod a[i] <> 0 then {kiểm tra xem bcnn có phải là bội chung nhỏ nhất không(chia hết cho các số trong mãng), "bcnn mod a[i] <> 0": nếu nó không chia hết cho a[i] thì không phải là bội, gán k = 0 để tiếp tục vòng lặp, vì điều kiện "while k = 0 do".}
                    begin
                        k:=0;
                        break;
                    end;
            if k = 1 then {**, khi câu lệnh "k:=0" không được thực hiện, tức là tìm được bội chung nhỏ nhất thì in ra màn hình, và kết thúc vòng lặp.}
                begin
                    write('BCNN: ', bcnn);
                    break;
                end;
        end;
    readln;
    readln;
end.

program bai_giai;
uses crt;
var A:array[1..10000] of longint;
    n,i,BCNN:longint;
{---CT-con---}
function BC(x,y:longint):longint;
begin
    BC:=x*y;
    while x<>y do
        if x>y then x:=x-y else y:=y-x;
    BC:=BC div x;
end;
{---CT-chinh---}
BEGIN
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    BCNN:=BC(A[1],A[2]);
    for i:=3 to n do BCNN:=BC(BCNN,A[i]);
    write(BCNN);
    readln;
end.