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

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