program five;

var
  n, counter :integer;
  temp : real;
begin
  writeln('Введите n');
  readln(n);
  writeln('Введите числовую последовательность длинной ',n);
  counter := 0;
  for n:=0 to n-1 do
  begin
    readln(temp);
    if ((sin(temp) >= -0.2) and (sin(temp) <= 0.5)) then
    begin
      counter := counter + 1;
    end;
  end;
  writeln(counter);
end.