Необходимо составить программу для вычисления суммы: — Pascal(Паскаль)

uses
  crt;

var
  i, n: integer;
  z: array [1 .. 100] of integer;
  s: real;

begin
  clrscr;
  write('n:=');
  readln(n);
  for i := 1 to n do
  begin
    write('z[', i, ']:=');
    readln(z[i]);
  end;
  for i := 1 to n do
  begin
    write(z[i]:3);
  end;
  writeln;
  s := 0;
  for i := 1 to n do
    s := s + (exp(-2 * z[1]) * ln(abs(z[i])));
  writeln('S=', s);
  readkey

end.