Question

дано натуральное число больше либо равно нулю если не отрицательное то вычесть 50 иначе вычесть 100

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  if n>=0 then n-=50 else n-=100;
  Writeln(n);
end.

Условие некорректно. Натуральное число всегда больше нуля. Поэтому задача решена для такого условия:
"Дано ЦЕЛОЕ число. Если оно не отрицательное, то вычесть 50, иначе вычесть 100"