Напишите программу вычисления меньшего общего кратного последующих четырех чисел: 36 54

Function gcd(a,b: longint): longint;
Нахождение наименьшего общего делителя
var
i: longint;
begin
while b lt; gt; 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;

function lcm( a , b : longint ) :longint;
Нахождение НОК
begin
lcm : = a * b div gcd ( a , b )
end;

begin
Writeln ( НОД ( 36 ; 54 ; 18 ; 15 ) = , lcm ( 36 , lcm ( 54 , lcm ( 18 , 15 ) ) ) )
end.