Помогите решить Delphi

[advmedia]

Здравствуйте. Помогите решить DELPHI.

1) Вычислить:
а) y=(2n-1)!=1*3*5* ... *(2n), n>0;

2) для заданного а вычислить принадлежащий интер¬валу (π, 2π) корень уравнения
ln(ctg x— 1)=a;

3) const n=-41;
var x:array [1..n] of real; y:real;
Написать фрагмент программы для вычисления:
а) y=

4) type вектор = array [1..20] of integer;
матрица = array[1..20] of векор;
var A: матрица ; x:вектор;
B:array[1..20,1..20] of integer;
Выписать фрагмент программы для решения следующей задачи:
б) четные столбцы матрицы А заменить на x


5) var x,y,z:real;
Вычислить z - (sign x + sign y)*sign (x+y), где
sign a=
-1 при a<0,
0 при a=0,
1 при a>0.

[newerow1989]

function y(n:integer):int64;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*(2*i-1);
end;

Сойдет?