Составьте программу которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4... чтобы сумма оказалась
а)больше 20
В КУМИРЕ ПОЖАЛУЙСТА

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.