заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела .Найдите количество элементов массива , равных 3.(Pascal ABC)

var x,i:integer;mass:array[1..15]of integer;beginrandomize;x:=0;for i:=1 to 15 dobeginmass[i]:=random(20)+1;if mass[i]=3 then x:=x+1;write(mass[i]+' ');end;writeln('');writeln('количество элементов равных трем = '+x);end.