Дан массив из 15 целых чисел заполнен случайными числами от 30 до 90 Подсчитать колличество элементов массива которые делятся на 2

{ FreePascal } program test; var a : array[1..15] of byte; i, n , c: byte; begin randomize; writeln('Массив:'); for i:=1 to 15 do begin a[i] := random(90-30+1)+30; write(a[i], ' '); end; writeln; writeln; writeln('Список элементов, делящихся на 2:'); c:=0; for i:=1 to 15 do begin n:=a[i]; if (n mod 2 = 0) then begin write (a[i], ' '); inc(c); end; end; writeln; writeln; writeln('Найдено ', c, ' элементов массива, которые делятся на 2'); end.