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

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!procedure nod ( a,b: integer; var h: integer);    var c: integer;    begin        repeat            if a > b then                a := a mod b            else                b := b mod a;        until (a = 0) or (b = 0);         h := a + b;    end;beginvar (a,b):=readinteger2('a,b->'); var h:integer;nod(a,b,h);Writeln('НОК',a*b/h);end.