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.
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.