Ответ:
Задание 1:
var x: integer;
begin
readln(x);
if (x>7) then x:=2*x;
writeln(x);
end.
Задание 2:
var x: integer;
begin
readln(x);
if (x>-1) and (x<6) then </em>
writeln('Точка x принадлежит интервалу (-1,6)')
else writeln('Точка x не принадлежит интервалу (-1,6)');
end.