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.
Вот программа.