Нужно написать программу в паскале найти наименьшее общее кратное n натуральных чисел, используя алгоритм евклида.

Var i, a, b, t, d, n : integer; x : array of integer; begin     read(n);     setlength(x, n + 1);     for i : = 1 to n do         read(x[i]);     a : = x[1];     for i : = 2 to n do begin         b : = x[i];         d : = a * b;         while (b > 0) do begin             t : = a;             a : = b;             b : = t mod b;         end;         a : = d div a;     end;     writeln(a); end.

Втом, что любой цвет можно представить в виде комбинации трех цветов: красного (red, r), зеленого (green, g), синего (blue, b). другие цвета и их оттенки получаются за счет наличия или отсутствия этих составляющих.  данная цветовая модель является аддитивной, то есть любой цвет можно получить сочетание основных цветов в различных пропорциях. при наложении одного компонента основного цвета на другой яркость суммарного излучения увеличивается. если совместить все три компоненты, то получим ахроматический серый цвет, при увеличении яркости которого происходит приближение к белому цвету.

#include <iostream>

#include <locale>

#include <ctime>

#include <cstdio>

#include <malloc.h>

#include <cstdlib>

using namespace std;

int main()

{    

   srand(time(NULL));

   setlocale(LC_ALL, "Russian");

   int A, X;

   bool c = false;

   cout << "Введите количество элементов в массиве" << endl;

   cin >> A;

   int* massive = (int*)malloc(A * sizeof(int));

   for (int i = 0; i < A; i++) {

       massive[i] = rand() % 6;

       cout << massive[i];

   }

   cout << "\nВведите какое число надо найти"<<endl;

   cin >> X;

   for (int i = 0; i < A; i++) {

       if (massive[i] == X) {

           cout << "A[" << i << "] = " << X << endl;

           c = true;

       }

   }

   if (c == false)

       cout << "\nНе найдено" << endl;

   return 0;

}