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

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