По сумме номеров страниц определить, сколько страниц было прочитано - Pascal

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

Цикл. Начав читать детектив с 30 страницы, читатель посчитал сумму номеров прочитанных за день страниц. Сколько он прочитал, если их сумма равна 840?

Решение задачи: «По сумме номеров страниц определить, сколько страниц было прочитано»

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

const MAX = 840;
var add,i,sum: integer;
 
 
begin
 
  i := 0;
  add := 30;
  sum := 0;
  
  while(sum < MAX) do begin
    i := i + 1;
    sum := sum + add;
    add := add + 1;
  end;
  
  writeln('Count: ' , i);
end.

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

Объявляется константа MAX со значением 840.
Объявляются переменные add (добавка к номеру страницы), i (счетчик страниц), sum (сумма номеров страниц).
Присваивается начальное значение 0 переменной i.
Присваивается начальное значение 30 переменной add.
Присваивается начальное значение 0 переменной sum.
Запускается цикл while, который выполняется до тех пор, пока сумма номеров страниц sum меньше чем константа MAX.
В теле цикла увеличивается значение переменной i на 1.
К значению переменной sum прибавляется значение переменной add.
К значению переменной add прибавляется 1.
После завершения цикла выводится на экран количество страниц, прочитанных пользователем.