Контрольная работа по Delphi =(

[Lilu77]

Всем привет.
Народ помогите по Delphi.

Вообщем задания такие:
1. http://clck.ru/d/SW05VrRZ18L_T
Решила так:

program Zadanie1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

const
a=12.5;
b=1.3;
c=14.1;
d=2.7;

var
  x,y,t1,t2, ax : Double;
begin
Writeln('Vvedite x:');
Readln(x);
Writeln('Vvedite y:');
Readln(y);
ax:=a*x;
t1:=(ax/y)+(b/(y*y)*ln(y*x+c));
//t1:=(b*ln(ax+b)/a+d*ln(y*x+d)/y)/c;
ax:=Sqrt((c-b)*(c+b))*tan(ax);
t2:=Ln((ax+b)/(ax-b))/2/a/b;
Writeln('t1= = ', t1:8:4);
Writeln('t2= = ', t2:8:4);
Writeln('Ha}|{MITE LYUBUYU KNOPKU');
Readln;
end.

2. http://clck.ru/d/6kLchtnu18M6n
Вот с этим проблемы =(

3. http://clck.ru/d/WkhvtcyR18MQP
И с этим проблемы =(

4. http://clck.ru/d/hGpQVQi118MfL
Сделала так:

program Massiv;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i, min:Integer;
  Ar:array[1..50] of Integer;
begin
  Writeln('Pervyj massiv:');
  for i:=1 to 50 do
  begin
  Randomize;
  Ar[i]:=Random(201)-100;
  write(Ar[i]:5);
  end;
Writeln(#13#10'Izmenennyj massiv:');
min:=200;
for i:=1 to Length(Ar) do
if(Ar[i]>0) and (Ar[i]<min) then
min:=Ar[i];
for i:=1 to 50 do
if(Ar[i]>=0)then write(Ar[i]:5)
else
  begin
  Ar[i]:=min;
  write(Ar[i]:5);
  end;
Readln;
end.

Кто сможет помогите плиз решить 2 и 3 задание, и правильность 1 и 4 задания
Хотя бы какие формулы...
С математикой туго

[execom]

Ты бы выложил задания живьем.. Ссылки не работают.