Составьте программу, которая заполняет массив b [1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество пар элементов с четными значениями.

спасибо

var i,k:integer;mas:array[1..8] of byte;beginrandomize; for i:= 1 to 8 do begin mas[i]:=1+random(9); write(mas[i],' '); if mas[i] mod 2=0 then k:=k+1 end; writeln(); write(k div 2) end.