Delphi-запутанная история.

[Nikita++]

Примеры
apples.in
1
1
apples.out
1
3

apples.in
2
0 1
apples.out
1
7

program babka;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   a:array[1..1000]of integer;
   z,k,i,j,min,max:integer;
begin
   readln(k);
   for i:=1 to k do read(a[i]);
   max:=(a[k]*2)+1;
   min:=(a[k]*2)-1;
   z:=(k-1);
   for i:=z downto 1 do
      begin
         max:=(a[i]+max)*2+1;
      end;
   for j:=z downto 1 do
      begin
         min:=(a[j]+min)*2-1;
      end;
   writeln(min,' ');
   writeln(max);
   readln;
   readln;
end.

Сервер пишет, что программа не проходит тесты из примера...

[Nikita++]

Я не прошу вас решить мне задачу, я прошу назвать причины, из-за которых сервер не хочет принять.

[Nikita++]

Ой, все извиняюсь, тема закрыта.