Question

Program mas;
uses crt;
var B: array [1..9] of integer;
i: integer;
Begin
clrscr;
randomize;
for i:=1 to 9 do if ((i mod 2)=0) then B(i):=0 else B(i):=random(100)-100;
End.
постройте пожалуйста блок-схему. Очень срочно!