Написать блок-схему к программе: uses crt; const n=40; var a: array[1..n] of integer; i: integer; pr: longint; begin randomize; pr: =1; for i: =1 to n do begin a[i]: =random(300); write(a[i]: 4); if (i mod 2< > 0) and (a[i] mod 3=0) then pr: =pr*a[i]; end; writeln(pr); end.