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

var a,s,i:integer;begina:=1-4;s:=0;for i:=1 to 100 do begin a:=a+4; s:=s+a; end;writeln('s = ',s);end.Результат:s = 19900