Составить блок-схему алгоритма и программу на алгоритмическом языке. Язык Паскаль с функцией возведения в степень power()...

ОГРОМНОЕ СПАСИБО!!!!

Пожалуйста

const  n = 6;var  a: array[1..n] of double;  i: integer;  s, z: double;begin  Randomize;  Writeln('Элементы массива');  z := 0;  for i := 1 to n do  begin    a[i] := Random;    Write(a[i]:13:10);    if (i mod 2)=0 then s:=1 else s:=-1;    z:=z+s*power(a[i],i)/i  end;  Writeln;  Writeln('Z=',z)end.Тестовое решение:Элементы массива 0.8154654227 0.5427680088 0.4687027379 0.4716027125 0.7476417570 0.8805677969Z=-0.659140947600361Блок-схема во вложении.