Если ввести с клавиатуры число 2, программой будет получен результат Var x:integer; p:boolean; begin writeln('Введите значение x') read(x); if (x > 1) and (x < 3) then write(p); end.