var all_list, list, count, i:integer;

begin

list := 0; count:=0;

write('Введите сумму номеров страниц книги: ') ;

readln(all_list);

while all_list <> list do

begin

count := count +1;

list := list + count;

end;

writeln('Всего листов: ', count);

write('Последняя страница: ', count*2);

end.