Помогите, пожалуйста, не могу разобрать две задачи в программе Паскаль

[Anna)]

Помогите, пожалуйста, не могу разобрать две задачи в программе Паскаль

Третья и пятая задача. Вообще ничего не получается, завтра сдать нужно работу, а решить не могу. Помогите, пожалуйста.

 

[Vladimir_S]

Ладно, сейчас нарисую. Экие, право, глупости...

 

[Anna)]

Заранее, Вам огромнейшее спасибо!!!

 

[Vladimir_S]

Заранее, Вам огромнейшее спасибо!!!

ПолучИте.
Третья задача:

Const
 a=1.0;
 b=2.0;
 e=0.0001;

Var
 x,h,S_old,S_new,d:real;
 N,i:integer;

Function F(z:real):Real;
begin
 F:=Ln(z)/(z+1)/Ln(10);
end;

Begin
 N:=10;
 S_old:=0;
 Repeat
  S_new:=0;
  h:=(b-a)/N;
  x:=a;
  for i:=1 to n do
   begin
    x:=x+h;
    S_new:=S_new+F(x)*h;
   end;
  d:=abs(S_old-S_new);
  S_old:=S_new;
  N:=N*2;
 Until d<=e;
 Writeln('Result: ',S_old:0:5);
 Readln
End.

Пятая задача:

Const
 Nmax=19;

Var
 A:Array[1..Nmax,1..Nmax] of Integer;
 i,j,N:Integer;

Begin
 Write('N (<20) = ');
 Readln(N);
 for i:=1 to N do
  for j:=1 to N do
   A[i,j]:=0;
 for i:=1 to N do A[i,i]:=i*(i+1);
 for i:=1 to N do
  begin
   for j:=1 to N do Write(A[i,j]:4);
   Writeln;
  end;
 Readln
End.

 

[Anna)]

Спасибо Вам большущее, выручили меня!