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.