Да прав си , че трябваше така да го постна , но честно казано когато го написах  и го пуснах излезна в такъв вид и не можах да го поправя

Мерси за корекцията и приемам забележката !    Но проблема ми е блок-схемата

program masiv;
var  m,i,j:integer;
     pr:real;
     a,b:array[1..20] of real;
begin
     while ((m<1)or(m>20)) do
          begin
          write('Vavedene broi na elementite na masiva m <1-20>:');
          read(m);
          end;
     writeln('Vavedete elementi na masiva:');
     for i:=1 to m do 
          begin
          write('Element[',i,']: ');
          read(a);
          end;
     for i:=1 to m do
          begin
          if(a>=0) then
               begin
               b:=a*i;end
          else
               begin
               b:=i*i;
               end;
          end;
     pr:=1;
     for i:=1 to m do
          begin
          if((b>-5)and(b<7))then
               begin
               j:=j+1;pr:=pr*b;
               end;
          end;
     writeln('Masivite predi i sled promianata:');
     writeln('                   Predi             Sled');
     for i:=1 to m do
          begin
          writeln('Element[',i,']: ',a:4:3,'      ',b:4:3,' ')
          end;
     writeln('Broia na elementite v intervala <-5,7>: ',j,'');
     writeln('Poizvedenieto na tezi elementi: ',pr:4:3,'');
     write('Natisnete ENTER');
     readln;
     readln;
end.

program masiv;
var  m,i,j:integer;
     pr:real;
     a,b:array[1..20] of real;
begin
     while ((m<1)or(m>20)) do
          begin
          write('Vavedene broi na elementite na masiva m <1-20>:');
          read(m);
          end;
     writeln('Vavedete elementi na masiva:');
     for i:=1 to m do 
          begin
          write('Element[',i,']: ');
          read(A);
          end;
     for i:=1 to m do
          begin
          if(a>=0) then
               begin
               b:=a*i;
               end
          else
               begin
               b:=i*i;
               end;
          end;
     pr:=1;
     for i:=1to m do
          begin
          if((b>-5)and(b<7))then
               begin
               j:=j+1;pr:=pr*b;
               end;
          end;
     writeln('Masivite predi i sled promianata:');
     writeln('                   Predi             Sled');
     for i:=1 to m do
          begin
          writeln('Element[',i,']: ',a:4:3,'      ',b:4:3,' ')
          end;
     writeln('Broia na elementite v intervala <-5,7>: ',j,'');
     writeln('Poizvedenieto na tezi elementi: ',pr:4:3,'');
     write('Natisnete ENTER');
     readln;
     readln;
end.

Тук можете да видите блок-схема на условен оператор:

http://www.tuj.asenevtsi.com/APIS/APIS32.htm

или http://www.l03algorithmes.hit.bg/index.htm

а тук може да прочетеш за циклични блок-схеми

uchenik.uni.cc/uploads/blokshemi.doc

Успех!