❗ Ввести число. Якщо воно невід'ємне, то відніміть від нього 50, у противному випадку додати до нього 100. (Написати програму) НА РУССКОМ ❗Введите число. Если оно неотрицательно, то вычтите от него 50, в противном случае добавить к нему 100. (Написать программу)
program prg;
var
number: integer;
begin
write('Input number: ');
read(number);
if number >= 0 then
number := number - 50
else
number := number + 100;
writeln('New value: ', number);
end.