{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
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] k:=k+1; {то считаем количество таких элементов}
end;
writeln;
writeln('количество: ',k);
end.