Блок-схема 13. нужно составить алгоритм в программе PascalABC.NET. помогите пожалуйста!!

она ведь не такая же как на картинке. совсем другую выдает блок-схему выдает с твоим алгоритмом

госпади, да ты гений! Огромное тебе спасибо!!

var x : array[1..100] of integer;   n,i,s,b : integer;beginwrite('n = ');readln(n);writeln('Исходный массив:');for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end;writeln;s:=0;for i:=1 to n div 2 do begin b:=x[i]; x[i]:=x[n+1-i]; x[n+1-i]:=b; end;for i:=1 to n do begin  write(x[i],' ');  if i mod 2 = 0 then s:=s+x[i]; end;writeln;writeln('s = ',s);end.Пример:n = 6Исходный массив:x[1]=12x[2]=54x[3]=71x[4]=30x[5]=47x[6]=2929 47 30 71 54 12s = 130