Дан массив из 10 элементов. ввести этот массив с клавиатуры. найти количество элементов равных 5 самостоятельная из 9 класса

Язык: Pascal

var i, k: integer;
a: array[1..10] of integer;

begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] = 5 then k := k+1;
writeln(k);
end.