求任意五个自然数的最小公倍数 pascal

var
  a:array[1..5] of longint;
  i:longint;
function gcd(a,b:longint):longint;
begin
  if b = 0 then exit(a);
  exit(gcd(b,a mod b));
end;
function lcm(a,b:longint):longint;
begin
  exit(a * b div gcd(a,b));
end;
begin
  for i := 1 to 5 do read(a[i]);
  for i := 2 to 5 do a[1] := lcm(a[1],a[i]);
  writeln(a[1]);
end.