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

Program ff;

var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;

while summ<>324 do
begin
 summ:=summ+4;
 count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.