Объяснение:
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.
