Составить алгоритм и блок-схему: найти произведение чётных чисел от 2 до 200

64*48*12*8=294,912- обьем в байтах 1 стр

1 -6 февраля. / понедельник.

2 - иа.

3 - число "1"

4 - печка.

5 - клюв.

6 - царь.

7 - марка.

8 - 10 гласных,21 согласная буква.(всего 33 буквы). - твёрдый,мягкий знак - не согласная не гласная.

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.