Bội chung nhỏ nhất của nhiều số

program Tim_BCNN_nhieu_so ;
var n,m,kt,j,i,t:longint;
a:array[1..100] of integer;

function BCNN(k,p:integer):integer;
var u,v:integer;
begin
v:=k;
u:=p;
while k<>p do
begin
if k>p then k:=k-p
else p:=p-k;
bcnn:=v*u div k;
end;
end;
begin
write(`Nhap So n=`);readln(n);
for i:=1 to n do
begin
write(`Nhap So Thu a[`,i,`]=`);readln(a[i]);
end;
m:=bcnn(a[1],a[2]);
for i:=3 to n do
m:=bcnn(m,a[i]);
write(`mat khau la: `,m);
readln;
end.