Найдите количество нулей во всем массиве и определите сумму квадратов чисел, принадлежащих промежутку (a, b) и стоящих на местах, кратных 4

#include < iostream>

#include < vector>

#include < iterator>

#include < algorithm>

#include < cmath>

int main()

{

int

  sum(0), count(0),

  a, b;

std: : cin > > a > > b;

std: : vector< int> vec;

std: : copy(std: : istream_iterator< int> (std: : cin), std: : istream_iterator< int> std: : back_inserter(vec));

for(auto it = vec.begin(); it ! = vec.end(); it++)

{

  if(a < *it & & b > *it & & (std: : distance(vec. it) % 4) == 0)

  sum += pow(*it, 2);

}

std: : cout < < "количество нулей: " < < std: : count(vec. vec. 0) < < std: : endl;

std: : cout < < "сумма квадратов чисел: " < < sum < < std: : endl;

}

1) var a,b,c,d,e,f,g: real;

    begin

      readln(a,b,c,d,e,f,g);

      writeln(a*b*c*d*e*f*g);

    end.

2) var a,i,s: integer;

    begin

      s: =1;

      a: =0;

      for i: =1 to 7 do begin

        a: =a+1;

        s: =a*s;

                              end;

    writeln(s);

  end.

вот программы. по ним составь блок схемы.