помогите плииз очень надо Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше 5.

varn,a,i,k:integer;begink:=0;writeln('введите кол-во чисел');readln(n);writeln('Вводите числа');for i:=1 to n dobeginread(a);if a>5 then k:=k+1;end;writeln('чисел больше 5: ',k);end.Примервведите кол-во чисел5Вводите числа5 7 9 3 1чисел больше 5:2