Pascal.

Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.

Var a, b, c, d, x, y: longint;

function NOD (a, b:integer) : integer;

begin

while (a0) and (b0) do

if a>=b then a: = a mod b

else b: = b mod a;

NOD:=a+b;

end;

function NOK (a, b:integer) : integer;

begin

NOK:=a*b div NOD (a, b)

end;

Begin

Read (a, b, c, d) ;

x:=NOK (a, b) ;

y:=NOK (c, d) ;

Writeln (NOK (x, y)) ;

end.