вводится 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.