1) составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+ сумма была больше оператор

var i,sum:integer;

begin

while sum<20 do begin

i:=i+1;

sum:=sum+i;

end;

writeln(i);

end.

Дай мне лучшее решение составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+ сумма был">