Ввести число. если оно неотрицательно, вычесть из него 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