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

a)var sum,col:integer;beginsum:=0;col:=1;while (sum<=20) do beginsum:=sum+col;col:=col+1;end;write('количество слагаемых больше 20 = ',col-1);end.b)var n,sum,col:integer;beginread(n);sum:=0;col:=1;while (sum<=n) do beginsum:=sum+col;col:=col+1;end;write('количество слагаемых больше ',n,' = ',col-1);end.