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

Var a,s,k:integer;
begin
a:=5;
k:=0;
s:=0;
repeat
s:=s+a;
a:=a+4;
k:=k+1;
until s=324;
writeln (k)
end.