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

Program ddd;
var i,n,s,k:integer;
begin
write('Введите n: ');
readln(n);
s:=0; k:=0;i:=1;
while s<=n do
begin
s:=s+i;
writeln(i);
inc(i);
inc(k);
end;
writeln('Необходимо ',k,' слагаемых; сумма равна ',s );
end.