Помогите с контрольной работой по Pascal! Опции

[A.S.]

Пожалуйста. Помогите решить некоторые задания из контрольной работы. Книгу по Паскалю выдали 3 дня назад, а сдавать задание надо через два дня. Так что прошу, помогите чем сможете. Заранее благодарен.
1)Даны x, y, z. Вычислить a, b, если
S = ( x^(3) ) * ( tg^(2) ) * ( (x+b)^(2) ) + ( a/sqrt (x+b))
Q = (b*(x^(2)) – a) / (e^(ax)) -1

2) Вычислить значение суммы членов бесконечного ряда с заданной точностью ε. На печать вывести значение суммы и число членов ряда, вошедших в сумму.
s=((x^(3)) /3 ) - ((x^(5)) /15)+…+((-1)^(n+1)) * ((x^(2n+1)) /4n^(2)-1 ) при x=0,30, ε= 10^(-5)
3) Вычислить значение интеграла , z = определённый интеграл от (a ) до (b) f(x)dx приведенного в вариантах на заданном отрезке интегрирования [a,b] . Считать заданным число разбиений отрезка интегрирования n. Включить в программу вычисление точного значения интервала. На печать вывести приближенное, точное значение интеграла и относительную погрешность вычисления в процентах. z=1/sqrt(9+sqr(x)) n=100,[0;2] , ε= 10^(-5)
4) Одномерные массивы.
Найти среднее геометрическое элементов массива A(N), если , ai >0 N <=50
5) Двумерные массивы.
В матрице T(N,M) найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и сумму их элементов. N<=20 , M<=15
6) Даны натуральное число n, действительные числа x1, y1, x2, y2, …, xn, yn. Найти площадь n-угольника, вершины которого при некотором последовательном обходе имеют координаты (x1, y1), (x2, y2),…, (xn, yn). (Определить функцию вычисления площади треугольника по координатам его вершин.)
7) Перечислить все представления положительного целого числа n в виде суммы последовательности невозрастающих целых положительных слагаемых.

[Артемий]

Многие задачи решались - поиск.. Или покажи что делал. Могу быстро дать 4 задачу:

function kor(y:real;z:integer):real;
var z1,x:integer;
begin
z1:=z div 2;
for z1:=1 to z1 do begin
y:=sqrt(y);end;
kor:=y;
end;

var
A: array [1..50] of Real;
n,i,j: Integer;
col: real;
begin
col:=0;
writeln('N=');
readln(n);
for i:=1 to n do readln(a[i]);
col:=a[1];
for j:=2 to n do begin
 col:=col*a[j];
end;
writeln(kor(col,n):6:2);