Ввести число a. если оно не отрицательно, то вычесть из него 30, иначе прибавить 70. результат a сообщить на экран решить программным алгоритмом мне

Pascal ABC.Net 3.3.5

var
  a: real;

begin
  write('Введите число: ');
  readln(a);
  if a > 0
    then a := a - 30
  else a := a + 70;
 
  writeln('Новое число - ', a);
end.