Дан массив С из 20 элементов. Определить количество шестерок в массиве

//Паскальvar i,n:integer;a:array[1..20] of integer;beginn:=0;randomize;//заполняем рандомомfor i:=1 to 20 doa[i]:=random(20);//считаем, если елемент массива равен шести то увеличиваем переменную n на еденицуfor i:=1 to 20 doif a[i]=6 then Inc(n);Writeln('Кол-во шестерок ' , n);end.