Напишите программу для нахождения НОК для n чисел (Pascal)

123456789101112uses crt;var a,b,c:integer;beginreadln(a,b);c:=a*b;repeatif a>b then a:=a-b else b:=b-a;until a=bc:=с div a;writeln(c);end;P.S. Использовано свойство НОД(a,b)*НОК(a,b)=a*b