Нужно из блок схемы на Паскале написать

var

 N: array[1..15] of integer;

 i, k: integer;

begin

 for i := 1 to 15 do

 begin

   N[i] := random(11);

   write(N[i], ' ')

 end;

 writeln;

 k := 0;

 for i := 1 to 15 do

   if N[i] mod 2 = 0 then

     k := k + 1;

 writeln(k)

end.