Вопрос, который вызвал трудности

Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10 помогите пж,

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=A-10
else A:=A+10;
Write(A);
End.