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

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