Дан массив.Подсчитать количество элементов равных 5

program tref;var a,i:integer; mas:array[1..10] of integer;beginrandomize;for i:=1 to 10 dobeginmas[i]:=random(50);if (mas[i]=5)then a:=a+1;writeln(mas[i]);end;writeln(a);end.Заполнение массива-рандомное,если хотите,можно изменить на ввод от руки