program while11;
uses crt;
var
  n,k,i:integer;
begin 
  clrscr;
  writeln('Введите число ');
  readln(n);
    k:=0;
    i:=0;
while i<n do 
  begin
    k:=k+1;
    i:=i+k;
  end;
writeln('Сумма ',i);
writeln('Число ',k);
readln
end.