Составить программу вычисления Zi. Zi =-2^ai*e^ai+1 Ai=3; 0; 5; 1, 2; 0; 2. Среди значений Zi определить есть ли равное 0, и вывести на печать его номер. — Pascal(Паскаль)

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