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

Var A:integer;BeginWrite('Введите число: ');ReadLn(A);if A >=0 then A:=A-10else A:=A+10;WriteLn('Полученное число: ',A)End.Пример работы программы:Введите число: 13Полученное число: 3