, программисты. нужен код в паскале. и не берите из других источников. Составить блок-схему алгоритма и программу для обработки массива из 20 чисел X=(0,3;5;68;-3;32;-80;-9;-26;-9;40;36;13;15;28;-0,7;-36;-0,3;8;15;-7) при b=5. Вычислить произведение и количество элементов, не равных нулю и меньших b.

var

 a:array [1..20] of real;

 i,b,count:integer;

 p:real;

begin

 a[1]:=0.3;  a[11]:=36;

 a[2]:=5;    a[12]:=13;

 a[3]:=68;   a[13]:=15;

 a[4]:=-3;   a[14]:=28;

 a[5]:=32;   a[15]:=-0.7;

 a[6]:=-80;  a[16]:=-36;

 a[7]:=-9;   a[17]:=-0.3;

 a[8]:=-26;  a[18]:=8;

 a[9]:=-9;   a[19]:=15;

 a[10]:=40;  a[20]:=-7;

 b:=5; count:=0; p:=1;

 for i:=1 to 20 do

   begin

     write(a[i],' ');

     if  ) then

       begin

         inc(count);

         p:=p*a[i];

       end;

   end;

 writeln;

 writeln('count: ',count,'  Pr: ',p);

end.