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

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