ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ОЧЕНЬ СРОЧНО!!!!
Значения вектора {xi}, i=1,...,20 вводятся из текстового файла. Требуется подсчитать количество его элементов, значения которых лежат в интервале [0,1].

const n=20;var f1:text; x:array[1..n] of real; i,k:integer;beginassign(f1,'f1.txt');reset(f1);i:=0; k:=0;while not eof(f1) dobegini:=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