задача вычисление числа

[7olia7]

написала но что то не так, что пока не могу понять компилирует но не просчитывает, подскажите где ошибка!
Составить программу вычисления Zi.
Zi =-2^ai*e^ai+1
Ai=3; 05; 1, 2; 0; 2.
Среди значений Zi определить есть ли равное 0, и вывести на печать его номер.

Program zadacha;
 uses crt;
 var
  i:integer;
  z:array [1..5] of real;
  a:array [1..5] of real;
 begin
  clrscr;
  writeln('vvedite a[i]');
  for i:=1 to 5 do
  readln (z[i]);
  for i:=1 to 5 do
 begin
  z:=exp (a[i]*ln(-2))*exp(a[i])+1;  ????????
  writeln (z[i]:8:3);
  if z[i]=0 then
  writeln('poziciy z[i]=0',i);
  writeln(i);
 end;
  readln;
end.

[__STDC__]

ln(-2) интересная функция.. жаль, что в действительных числах не вычисляется..

upd. ну, Вы типа поняли намек, да?

[Летучий_СкилетиК]

Имеется в виду , что такого пока что в математике не изобрели
ln(-x), извлекается всегда по модулю, а знак берем в зависимости от того какой член степени, т.е четный значит положительный и не четный отрицательный соответсвенно.

z:=exp (a[i]*ln(-2))*exp(a[i])+1

заменяем на:

z:=exp (a[i]*ln(2))*exp(a[i])+1
if a[i] mod 2 <> 0 then z := -z;

[__STDC__]

я туплю =)