Z9

function NOD(a, b: integer): integer;  // Простой алгоритм евклида.
    begin
        if a <> 0 then
            NOD := NOD(b mod a, a)
        else
            NOD := b;
    end;

function NOK(a, b: integer): integer;
    begin
        NOK := (a*b) div NOD(a, b);  // Это 2 пункт
        // div для того, что бы не ругался паскаль на то, что получает не int
    end;

var m, n: longint;
begin
    n := 1;  // Что бы самый первый n был равен m
    read(m);
    while m<>0 do begin  // 0 - Конец последовательности
        n := NOK(n, m);  // Это 1 пункт
        read(m);
    end;
    writeln(n);
end.