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

Program prim; var i,sum,n,x : integer; begin write(n = ); readln(n); x:=2; sum:=2; i:=1; while sumlt;=n do begin x:=x+2; i:=i+1; sum:=sum+x; end; writeln(i,слагаемых); end.