Ответ:
Для 1 задания
var
x, a, b, c:integer;
begin
read(x);
if ((x >= -5) and (x <= 10)) write("true")</p>
else write("false");
end.
Для 2 задания
var
x, a, b, c:integer;
begin
read(x);
if ((x >= 100) and (x <= 999)) write("true")</p>
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.
Объяснение: