Question

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

Answer 1

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

Answer 2

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"