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

Если для 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.