Написать программу.Паскаль.Задан массив BON из N чисел (N=20) случайным образом в

Да сколько можно вас всех учить. Пишите язык, на котором необходимо программировать. На данный момент на ассемблере напишу и посмотрим, как вы его читать будете

Pascal

const N = 20;

var BON:array[0..N] of integer;

   amount: integer;

   i: integer;

begin

 amount := 0;

 randomize;

 for i := 0 to N do

   BON[i] := random(-5,5);

 for i := 0 to N do

   if(BON[i] mod 2 lt;gt; 1) then

     amount := amount + 1;

writeln('Четных чисел ',amount);

end.