Дана последовательность 5, 9, 13, 17,... Составьте программу для подсчета количества слагаемых, сумма которых равна 324 (while).

Вот держите:var a,sum,k:integer;beginwhile sum<>324 do beginsum:=sum+4;inc(k);end;writeln(k);end.