Вводится 10 чисел (положительные). нужно подсчитать количество чисел меньше 10. на языке паскаль

Program chisla;

Var mas: array (1 ... 10) of real; (не указано, что должны быть только целые числа, поэтому real)

K, i: integer;

Begin

For i:=1 to 10 do

Write (mas[i]) ; / / ввод массива

Read (mas[i]) ;

K:=0;

For i:=1 to 10 do

If mas[i]<10

Then K:=K+1;

Writeln ('Количество чисел меньше 10', K) ;

End.