Программа по информатике 9 класс, нужно составить блок-схему
Const
N = 5;
Var
A,B:array[1..N] of integer;
i,j:integer;
Begin
j:=0;
Write('Массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(' ',A[i]);
if A[i] mod 2 = 0 then
Begin
j:=j+1;
B[j]:=i;
End;
End;
WriteLn;
Write('Массив B(',j,'):');
For i:= 1 to j do
Write(' ',B[i])
End.