Программирование ** языке паскальвычислить значение у для х заданному с клавиатуры по...

Question

Программирование на языке паскаль
вычислить значение у для х заданному с клавиатуры по формуле
y=1-x,если x<0<br>1+x,если x>10

Answer 1

Если для x из отрезка [0; 10] y не определено, то:
var x, y:integer;
begin
     read(x);
     if x > 10
     then
         y := x + 1;
     if x < 0
     then
         y := 1 - x;
     writeln(y);
end.