1) Составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+...,чтобы сумма была больше 20!!!!!!через оператор WHILE!!!!!!!!!!!!!!
var i,sum:integer;
begin
while sum<20 do begin</p>
i:=i+1;
sum:=sum+i;
end;
writeln(i);
end.
Дай мне лучшее решение плиз)