Составьте программу, которая определяет, сколько слагаемых должно быть в сумме…

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.