Увеличить число x на 10,если оно положительное,во всех остальных случаях уменьшить его на 10

//Pascal var   a: integer; begin   readln(a);   if a > 0 then a := a + 10   else     a := a - 10;   writeln(a); end.