Введите число, если оно не отрицательно, вычесть из него 10. В противном случае прибавить к числу 10.

var x: integer;beginwrite('Введите число: ');readln(x);if x > 0 then writeln( x - 10 )else writeln( x + 10 );end.