Составьте программу, которая формирует массив из 10 случайных целых чисел от 5 до 15 и подсчитывает количество нечетных чисел.(и выводит их)

vara:array[1..15] of integer;i:integer;beginfor i:=1 to 10 dobegina[i]:=random(5,15);if a[i] mod 2 <>0 then write(a[i],' ');end;end.