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

Var

A:array[1 ... 4] of integer;

i, j, R, P:integer;

function HOD (c, b:integer) : integer;

begin

while cb do

if c>b

then

c:=c-b

else

b:=b-c;

HOD:=c;

end;

function HOK (c, b, RR:integer) : integer;

begin

if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))

then

begin

if c>b

then

HoK:=c

else

HOK:=b;

end

else

HOK: = (c*b) div RR;

end;

begin

A[1]:=36;

A[2]:=54;

A[3]:=18;

A[4]:=15;

P:=1;

R:=HOD (A[1], A[2]) ;

P:=HOK (A[1], A[2], R) ;

for i:=3 to 4 do

begin

R:=HOD (R, A[i]) ;

P:=HOK (P, A[i], R) ;

end; writeln ('HOK = ', P) ;

end.