Составьте программу вычисления значений функции: y=23x+1 y=21x^2+7x+1963 при x=-5,-4,-3,-2,-1,0,1,2,3,4,5

Var   x: integer; begin   for x: =-5 to 5 do       writeln(x: 2,23*x+1: 6,21*x*x+7*x+1963: 6) end. результат -5  -114  2453 -4    -91  2271 -3    -68  2131 -2    -45  2033 -1    -22  1977   0        1  1963   1      24  1991   2      47  2061   3      70  2173   4      93  2327   5    116  2523

Var    i: integer;   begin        for i: =-5 to 5 do    begin            writeln('y=',23*i+1);             writeln('y='*i)*(21*i))+7*i+1963);             writeln(' ')        end;   end.  

                                            написано на паскале! 2) program fofgogjoj; const nmax=100; var m: array[1..nmax] of integer;     n,i,j,k: byte;     a,b,x: integer; begin randomize; repeat  write('размер массива до ',nmax div 3,' n='); readln(n); until n in [1..nmax div 3]; writeln('исходный массив: '); for i: =1 to n do   beginm[i]: =random(50);   write(m[i],' ');   end; writeln; writeln; write('введите число для вставки перед a='); readln(a); i: =1; k: =0; while i< =n do   beginif m[i]> a then     begin     n: =n+1;     k: =1;     for j: =n downto i+1 do     m[j]: =m[j-1];     m[i]: =a;     i: =i+2;     end   else i: =i+1;   end; if k=0 then writeln('элементов больше ',a,' нет') else   begin   writeln('массив после вставки числа ',a,' перед большими ',a);   for i: =1 to n do   write(m[i],' ');   writeln;   writeln;   write('введите число для вставки после b=');   readln(b);   i: =1; k: =0;   while i< =n do   if m[i]< b then     begin     n: =n+1;     k: =1;     for j: =n downto i+2 do     m[j]: =m[j-1];     m[i+1]: =b;     i: =i+2;     end   else i: =i+1;   if k=0 then writeln('элементов меньше ',b,' нет')   else     begin     writeln('массив после вставки числа ',b,' после меньших ',b);     for i: =1 to n do     write(m[i],' ');     end;   end; readln end.