Составить программу для нахождения наименьшего общего кратного четырех натуральных чисел: по формуле НОК (A, B) = (A*B) / НОД (A*B)

(Определить процедуру, распознающую НОД двух чисел)

uses crt;

var

a, b, c, d:longint; {нахождение НОД 2 х чисел по Эвклиду}

function NOD (m, n:longint) : longint;

begin

repeat i

f abs (m) >abs (n) then m:=m mod n

else n:=n mod m;

until (m=0) or (n=0) ;

NOD:=abs (m+n) ;

end;

begin clrscr;

write ('a=') ; readln (a) ;

write ('b=') ;

readln (b) ;

write ('c=') ;

readln (c) ;

write ('d=') ;

readln (d) ;

writeln;

writeln ('NOD (a, b, c, d) = ', NOD (NOD (a, b), NOD (c, d))) ;

readln

end.