Вычислите k первых членов арифметической прогрессии.

[anasttb]

Члены прогрессии заданы следующим рекуррентным образом: a0 =1, an+1 =a n+2, где n=0,1,2

[newerow1989]

var k,i,a,s:integer;
begin
   Write('k = '); Readln(k);
   a:=1;
   s:=a;
   Writeln('a[0] = ',a);
   For i:=1 to k do
   begin
      a:=a+2;
      s:=s+a;
      Writeln('a[',i,'] = ',a);
   end;
   Writeln;
   Writeln('s = ',s);
   Readln;
end.

[Hitoku]

Ну или так

function a(i : Integer) : Integer := (i < 1 ? 1 : a(i-1)+2);
begin
  for var i:=0 to ReadLnInteger('k =') do writeln('a[',i,']=',a(i));
end.