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

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"

Var a:integer;
Begin
Writeln('Введите число a');
Readln(a);
If a>=0 then
a:=a-50;
Else
a:=a-100;
Writeln(a);
End.