Сделай алгоритм на языке паскаль Ввести число если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10

Конечно! Вот пример программы на языке Pascal, которая реализует описанный алгоритм:

program AdjustNumber;

var
  num: Integer;

begin
  // Ввод числа
  ReadLn(num);
  
  // Проверка и корректировка числа
  if num >= 0 then
    num := num - 10
  else
    num := num + 10;

  // Вывод результата
  WriteLn(num);
end.

Этот код читает число с клавиатуры, проверяет его знак и соответственно либо вычитает 10, либо прибавляет 10, после чего выводит полученное число.