Напишите программу пожалуйста... Дана последовательность 5, 9, 13, 17... .Поставьте...

Question

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

Answer 1

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.