Дано n чисел составить программу для нахождения суммы этих чисел через цикл пока

Var i,n,s: integer;beginn:=10;while i < n+1 dobegins:= s + i;writeln(i,s:4);i:= i +1;end;end.