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

Function gcd(a,b: longint): longint;{ Нахождение наименьшего общего делителя }var i: longint;begin while b < > 0 do begin a := a mod b; i := b; b := a; a := i end; gcd := aend;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.