Cоставьте программу которая...

Cоставьте программу которая заполняет массив а [1..13] целыми случайными числами в диапазоне от -3 до 7 и выводит на экран исходный массив и количествоэлементов с четными положительными значениями

 

Var
i,c:integer;
a:array[1..13] of integer;
begin
randomize;

for i:=1 to 13 do begin
a:=random(10+1)-3;
writeln(a,' ');
if (a mod 2=0) and (a >0) then inc(c);
end;

writeln('Количество = ',c);
end.