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

// Программа  и скриншот результата ее работы - в приложенияхvar m,n:integer;// Наибольший общий делительfunction GCD(a,b:integer):integer;var   x,y:integer;begin  x:=a;  y:=b;  while x<>y do    if x>y     then x:=x-y    else y:=y-x;  GCD:=x;end; // Наименьшее общее кратноеfunction SCM(a,b:integer):integer;begin  SCM := a*b div GCD(a,b);end;begin  writeln('Введите два целых числа m, n: ');  readln(m, n);    writeln('Наименьшее общее кратное ',           m,' и ', n, ' = ', SCM(m,n) );end.