Найти n - Pascal ABC

Формулировка задачи:

дано натуральное число число n вычислить s=1+2+4+7+11+16+..+k, где k<=n

Решение задачи: «Найти n»

Листинг программы

var n,k,i,s:integer;
begin
repeat
write('Введите n>0 n=');
readln(n);
until n>0;
k:=1;
writeln(k); //можно убрать
s:=0;
i:=0;
while k+i<=n do
 begin
  i:=i+1;
  k:=k+i-1;
  writeln(k); //можно убрать
  s:=s+k;
 end;
writeln('s=',s);
end.

Объяснение кода листинга программы

Переменные:
- n, k, i, s (тип данных - integer)
Цель программы:
- Найти значение переменной s, которое представляет собой сумму всех чисел от 1 до n, где n - введенное пользователем число (на каждой итерации цикла)
Описание работы программы:
- Пользователю предлагается ввести число n, которое больше 0. Если число не соответствует условию, программа просит ввести корректное значение.
- Инициализация переменных: k = 1, s = 0, i = 0.
- Цикл while, выполняющийся до тех пор, пока k + i не превышает n.
  - Увеличение i на 1.
  - Увеличение k на i - 1.
  - Вывод значения k (можно убрать).
  - Увеличение s на k.
Вывод:
- Значение переменной s.