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

Var i,k:integer;
mas:array[1..8] of byte;
begin
randomize; 
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.