Значения вектора {xi}, i= вводятся из текстового файла. требуется подсчитать количество его элементов, значения которых лежат в интервале [0,1].

Const n=20;
var f1:text;
 x:array[1..n] of real; i,k:integer;
begin
assign(f1,'f1.txt');
reset(f1);
i:=0; k:=0;
while not eof(f1) do
begin
i:=i+1;
read(f1,x[i]);
if (x[i]>=0)and(x[i]<=1) then k:=k+1;
end;
close(f1);
writeln('k = ',k);
end.

Пример (для i=1, ..., 10):
Файл f1.txt:
 0.56
 1.62
-0.27
 1.44
-1.47
 0.74
-1.82
-1.80
-1.76
 0.72

Результат работы программы:
k = 3