Нужна блок-схема

program CoolProgram;
var a:array[1..100] of Integer;
    i,n:Integer;
begin
 WriteLn('Vvedite koli4estvo elementov');
 ReadLn(n);
 for i:=1 to n do
  begin
  Write(i,' element = ');
  ReadLn(a[i]);
  end;
 for i:=1 to n do if (a[i] mod 5=0) and (odd(a[i])) and (a[i]<0)
  then Write(i,' ');
  ReadLn;
end.

 for i:=1 to n do if (a[i] mod 5=0) and (odd(a[i])) and (a[i]<0)

uses crt;                 const max=10;
var x,y:array[1..max] of real;
    n,m,i,j:byte;                           
p:real;                        
 begin                         
clrscr;                          
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' действительных чисел:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(x[i]);                end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(x[i]:0:2,' ');
writeln;
writeln;
for i:=n downto 1 do
 begin
  p:=1;
  for j:=1 to i do
  p:=p*x[j];
  y[i]:=p;
 end;
writeln('Массив Y:');
for i:=1 to n do
write(y[i]:0:2,' ');
readln
end.