Дана последовательность корень из 10,9,. найти количество членов последовательности лежащих в [2; 3]

Var i,k:integer;
begin
k:=0;
for i:=10 downto 1 do
 if (sqrt(i)>=2)and(sqrt(i)<=3) then k:=k+1;
writeln('k = ',k);
end.

Результат:
k = 6

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  1.To(10).Where(t->Sqrt(t).InRange(2.0,3.0)).Count.Println;
end.

Результат
6