program DifferenceOrSum;varx, y: integer;beginwriteln('Enter a number: ');readln(x);
if x >= 0 theny := x - 50elsey := x + 100;
writeln('Result: ', y);end.
program DifferenceOrSum;
var
x, y: integer;
begin
writeln('Enter a number: ');
readln(x);
if x >= 0 then
y := x - 50
else
y := x + 100;
writeln('Result: ', y);
end.