Напишите программу в pascalabc x*(x+1/2)*(x+2/3)*(x+3/+15/16)

Type   fun=function(p: real): real; function f(x: real): real; begin   f: =3*sqr(x)-2*x; end; function simpson(a,b,h: real; ff: fun): real; var   m,n,mn: integer;   s: real; begin   n: =trunc((b-a)/h)+1;   s: =f(a)+f(b);   mn: =4;   for m: =1 to n-2 do begin       s: =s+mn*f(a+h*m);       if mn=4 then mn: =2 else mn: =4;   end;   simpson: =s*h/3; end; var   a,b,h: real; begin   a: =0; b: =2; h: =0.5;   writeln('y=',simpson(a,b,h,f)) end. результат выполнения программы: y=4

Var       d, min, i, n: integer; begin       write('введите n=');       readln(n);             write('введите число ');       readln(d);       min : = d;             for i : = 2 to n do       begin               write('введите следующее число ');               readln(d);               if (d mod 100 div 10 = 8) and ((min mod 100 div 10 < > 8) or (min > d)) then                       min : = d;       end;             if (min mod 100 div 10 < > 8) then               writeln('не найдено')       else               writeln(min); end.