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

Если тебе нужен код, то вот он: 
var 
   x : real; 
begin 
   write('x = ');readln(x); 
   if x > 0 
      then 
           x := x - 50 
      else 
           x := x + 100; 
    writeln('result : x = ',x:0:2); 
end.