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