1-4 фотографии образец. 5 фотография - сделать. (записать условие задачи и составленную программу)

Задание 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  

writeln('Точка x принадлежит интервалу (-1,6)')

else writeln('Точка x не принадлежит интервалу (-1,6)');

end.