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

Конечно! Вот пример программы на языке Pascal, которая реализует описанный алгоритм: ```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, после чего выводит полученное число.