вывести на экран дисплея номера элементов массива, удовлетворяющих условию 0 <хi<3,2

var i,n:integer;x:array[1..100] of integer;begin readln(n);for i:=1 to n do readln(x[i]);fvor i:=1 to n doif (x[i]>0) and (x[i]<3.2)  then writeln(i);end.