mnv1962 {все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
var
a: array[1..10]of real;
i,k:integer;t:real;     
       begin            
  writeln('Введите t');
{На экране появится текст "Введите t"}       
 readln(t); 
{В этот момент появится курсор и можно будет ввести значение t}           
 writeln('Введите массив');           
        for i:=1 to 10 do               
             begin               
                   readln(a[i]);   {вводим элементы массива с клавиатуры}               
                       if a[i]<t then  {если элемент массива <t}                    
                            k:=k+1;   {то считаем количество таких элементов}          
             end;           
 writeln;           
writeln('количество: ',k);       
end.