program ddd;var i,n,s,k:integer;beginwrite('Введите n: ');readln(n);s:=0; k:=0;i:=1;while s<=n dobegins:=s+i;writeln(i);inc(i);inc(k);end;writeln('Необходимо ',k,' слагаемых; сумма равна ',s );end.
program ddd;
var i,n,s,k:integer;
begin
write('Введите n: ');
readln(n);
s:=0; k:=0;i:=1;
while s<=n do
begin
s:=s+i;
writeln(i);
inc(i);
inc(k);
end;
writeln('Необходимо ',k,' слагаемых; сумма равна ',s );
end.