Составить алгоритм нахождения суммы членов последовательности А(k)=k+1, где k=1,2,3...n, ??ремя циклами.

Var s,i,n:integer;begin  readln(n);//цикл for  s:=0;  i:=0;  for i:=1 to n do s:=s+i+1;  writeln(s);//цикл while  s:=0;  i:=0;  while i<n do begin     i:=i+1;     s:=s+i+1;  end;writeln(s);//цикл repeat  s:=0;  i:=0;  repeat     i:=i+1;     s:=s+i+1;  until i=n;  writeln(s);end.