Паскаль. Задайте массив из 10 случайных целых чисел из интервала [-5; 5]. Определите сколько раз в массиве встречается число 3

program count3;

const

N=10;

var a: array [1 ... N] of integer;

i, count : integer;

begin

count:=0;

cls;

writeln ('Массив [-5; 5]') ;

for i:=1 to N do begin

A[i]:=random (11) - 5;

write (A[i]:4) ;

if A[i] = 3 then

count:=count+1;

end;

writeln;

writeln ('Количество троек в массиве : ', count) ;

end.