Составить блок схему к pascal program sdasdas; var a: array [1..10] of integer; p,i: integer; begin randomize; for i: =1 to 10 do a[i]: =random(495)+5; p: =1; begin for i: =1 to 10 do if (a[i] mod 3=0) or (a[i] mod 9=0) then p: =p*a[i]; writeln('произведение =',p); end; readln; end.