Найти сумму 1 + 1/3 + 1/5 +...(N слагаемых).

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

var a: array[0..10] of integer;

i,x: integer;

begin

  read(x);

  randomize;

  for i : = 1 to 10 do begin

      a[i]: =random(4);

      if a[i]=x then writeln('a[',i,']');

  end;

end.

var a: array[1..100,1..100] of integer;

i,j,n,min: integer;

begin

  read(n);

  min: =maxint;

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if abs(a[i,j])< abs(min) then min=a[i,j];              

      end;

  for i: = 1 to n do begin

      for j: = 1 to n do begin

          a[i,j]: =a[i,j] + min

          write(a[i,j]);          

      end;

      writeln;

  end;  

end.

перевозим сначала козу 

потом капусту и овцу перевозим назад к волку 

берём волка 

потом в онце перевозим козу