Мне нужно) вычислить с паскале: (х+1)\(х-1)^x+18xy^2

program xxx; var    b, c : array [1..15] of integer;     i, s, a : integer;

begin//подключаем датчик случайных чисел    randomize; //цикл заполняющий массивы     for i: =1 to 15 do          begin                b[i]: =random(100);                 c[i]: =(b[i] + i);             end; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 do    begin        write(b[i],'  ')    end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

//вводим число аwrite('введите число а=');

readln(a);

//формируем 3-ий массив и находим сумму эоементов меньших а

s: =0; for i: =1 to 15 do    if c[i]< a then begin c[i]: =c[i]* 2; s: =s+c[i]; end;

//выводим на экран 3-ий массивwrite('третий массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

writeln('сумма элементов меньших а=', s);

readlnend.

uses crt; vara: array [1..9] of integer; i,c,m,n: integer; b: real; beginclrscr; randomize(); c: =1; for i: =1 to 9 dobeginif i=c thenbegina[i]: =i+3; c: =c+3; endelsebeginif i mod 3=0 then a[i]: =a[i-1]+a[i-2] else a[i]: =sqr(i-1); end; write(a[i],' '); end; readln(); end.

uses crt; var x,y,s,i,j: integer; a: array [1..15] of integer; beginclrscr; randomize(); writeln('vvedite chislo'); readln(x); writeln('ishodniy'); for i: =1 to 15 dobegina[i]: =random(100); write(a[i],' '); end; writeln; writeln; writeln('ispravlenniy'); for i: =1 to 15 dobeginif a[i]+i< x thenbegina[i]: =(a[i]+i)*2; s: =s+a[i]; textcolor(red); write(a[i],' '); end elsebegintextcolor(white); a[i]: =(a[i]+i); write(a[i],' ')end; end; writeln; textcolor(green); writeln('summa =',s); readln; end.