Нужна Блок-схема program _1; var x, y: real; begin writeln ('Введите через пробел значения x и y:'); readln (x, y); if x > 0 then if y > 0 then writeln ('I') else writeln ('IV') else if y > 0 then writeln ('II') else writeln ('III'); end. program _3; const A = 1; B = 2; C = 3; var y, m: real; begin y := cos(A - B) * C; m := trunc(y) mod 3; writeln(y:0:3); writeln(m:0:3); if m = 0 then y := trunc(y) else if m = 1 then y := y - trunc(y); writeln(y:0:3); end.

Так нам надо из предложенных ответов узнать какое число истинно при высказывании не(X<3)и(x<4), то есть не(X<3)и(x<4)=1
Сначала вспомним таблицу истинности для:
НЕ(отрицание) 
0 = 1
1 = 0
И(Импликация) то есть логическое умножение
0 0 = 0
0 1 = 0
1 0 = 0
1 1 = 1
Проверяем по порядку:
Число 5 подставляем  НЕ(5<3)и(5<4) p.s 5<3, 3 не больше 5 тогда ставим 0 и следовательно 4 не больше 5 -> НЕ(0)и(0) -> 1 и 0, смотрим таблицу 0.

Число 2 подставляем НЕ(2<3)и(2<4) -> НЕ(1)и(1) -> 0 и 1 = 0. 

Число 3 подставляем НЕ(3<3)и(3<4) -> НЕ(0)и(1) -> 1 и 1 = 1, вот и нашли правильный ответ.

Для верности проверим последнее число.

Число 4 подставляем НЕ(4<3)и(4<4) -> НЕ(0)и(0) -> 1 и 0 = 0.

Решая последнее число убедились, что правильный ответ 3.