Дам 40 баллов безотлагательно

Ответ:

Для 1 задания

var

x, a, b, c:integer;

begin

read(x);

if ((x gt;= -5) and (x lt;= 10)) write("true")

else write("false");

end.

Для 2 задания

var

x, a, b, c:integer;

begin

read(x);

if ((x gt;= 100) and (x lt;= 999)) write("true")

else write("false");

end.

Для 3 задания

var

x, a, b, c:integer;

begin

read(a, b, c);

if ((a = b) and (b = c)) write("true")

else write("false");

end.

Объяснение: