Переведите код с с++ на паскаль: if ((n1+n2< 999999) | | (m1+m2< 999999)) { if (n1+n2 count<

#include  < iostream> #include < cstdio> #include < cmath> int  main() { //объявление переменных, освобождение памяти под динам.массив int i=0,n=0,c=0,max=0,k=0; double p=1.0; cin> > n,c; double *massop = new  double [n]; double *mass = new double[n]; //узнаём числа> c, а заодно и значение  максимума по модулюfor (  i = 0; i < n; i++) { cin> > massop[i]; if (massop[i]> c) k++; if (fabs(massop[i])> max||fabs(massop[i])=max) max=fabs(massop[i]); } cout< < k< < '"  элементов больше с"< < endl; //находим первый максимальный эл-т //больше с  не нужно, возьму под другие нужды for (i  =  0; i< n; i++) { if (fabs(massop[i])=max) break; } c=i; //начиная с этого элемента находим произведение последующих for (i  = c; i< n; i++) { p=p*massop[i]; } cout< < "произведение чисел  после максимального по модулю элемента:   "< < p< < endl; //и снова с на левые цели c=0; //заполняем начало массива mass отрицательными элементами из massop for (i=0; i< n; i++) { if  (massop[i]< 0) mass[c]=massop[i]; c++; } //а конец-положительными for (i=0; i< n; i++) { if  (massop[i]> 0||massop[i]=0) mass[c]=massop[i]; c++; } //выведем, что вышло после упорядочивания for (i=0; i< n; i++) { cout< < mass[i]< < '/n'; } } /*вот и всё, коллега-сишник : d*/

Var       a: array[1..100] of integer;       i, n: integer;       k: integer; begin       {ввод массива}       n : = 20;       writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(30 + 1) + 1;               write(a[i], ' ');       end;       writeln();             writeln('выбранные: ');       for i : = 1 to n do               if a[i] mod (2 * 3) = 0 then                       write(a[i], ' '); end.