Разработать алгоритм и программу вычисления и вывода на экран дисплея первых 15 членов последовательности, которая задана формулой: An=(1/2)в степени n + (1/3) в степени n ; n=1,2… — Pascal(Паскаль)

program PascalGuru;

function pow(x: real; n: integer): real;
var
  r: real;
  i: integer;
begin
  r := x;
  for i := 1 to n - 1 do
    r := r * x;
  pow := r;
end;

var
  i, answer: real;
  n: integer;

begin
  for n := 1 to 15 do
  begin
    answer := pow(1 / 2, n) + pow(1 / 3, n);
    writeln('A', n, '= ', answer:0:5);
  end;

  readln;

end.