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

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


Пример работы программы:

Введите число: 13
Полученное число: 3