помагите, пожайлуйста. Составьте блок схему вычисления первых десяти членов последовательности, заданной формулами n-го члена: xn = 3ⁿ-5.

var x: array[1..10] of real;

n: integer;

begin

 for n:=1 to 10 do begin

   x[n]:=power(3,n)-5;

   writeln(x[n]);

   end;

end.

Норм.