Запишите на языке Паскаль выражение,которое истинно,если переменная х принадлежит заштрихованной области
С 1 по 4

1) (x>1) and (x<2)

2) x>=3

3) (x<1) or (x>3)

4) (x>=1) and (x<3)

1)var x: real;beginwriteln('введите x');readln(x);if (1<x) and (x<2) then writeln('верно') elsewriteln('неверно');end.2)var x: real;beginwriteln('введите x');readln(x);if (x>3) or (x=3) then writeln('верно') elsewriteln('неверно');end.3)var x: real;beginwriteln('введите x');readln(x);if (x<1) or (x>3) then writeln('верно') elsewriteln('неверно');end.4) var x: real;beginwriteln('введите x');readln(x);if ((1>x) or (1=x)) and (x<3) then writeln('верно') elsewriteln('неверно');end.