Паскаль ABC Решить задачу и нарисовать блог схему

взял от -10000 varx:real;beginreadln(x);if (x>=-10000) and(x<=-2) or(x>=1) and(x<=3) thenwriteln('vhodit')else writeln('ne vhodit');end.