СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел...

Question

СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел последовательности 1,5,9,13,17,....

Answer 1

Var a,s,i:integer;
begin
a:=1-4;
s:=0;
for i:=1 to 100 do
 begin
 a:=a+4;
 s:=s+a;
 end;
writeln('s = ',s);
end.

Результат:
s = 19900

---