program untitled;

uses crt;
var i,sum,test: integer;

BEGIN

write('Введите сумму номеров страниц - ');
readln(sum); { Ввод суммы номеров страниц }

test := 0; { Счетчик количества страниц }
i:=0; { Номер первой страниц, начнем с единицы и так пока не дойдем до последней }

while test < sum do
begin
     i:= i + 1; { Переход на следующую страницу }
    {Так как первая страница у нас судя по переменной имеет номер 0, а такого номера не может быть, то мы сразу переходим к первой страницы книги}
    test := test + i; { Считаем новую сумму страниц и переходим к следующей }
end

if (test = sum) then begin { Делаем проверку на то, что тестовое число соответствует сумме, если не соответствует, то значит сумма страниц была введена с ошибкой и мы должны сообщить об этом пользователю. }
    writeln('Номер текущей страницы - ', i );
end else
    writeln('Сумма страниц, которую вы ввели неправильная. Пожалуйста, проверьте введенные данные и повторите ввод еще раз.');
end

END.