Ответ:

Объяснение:

Program n1;

var x, y: longint;

begin

 writeln('Введите x');

 readln(x);

 if (x<=10) and (x>=-10) then y:=7*x else y:=x+5;

 writeln('y = ', y);

 readln;

end.