Дано целое число.Указать какое это число положительное или отрицательное. Заменить это число на 71 ,если это число равно 35.уменьшить это число на 23, если оно меньше 35.Не изменять это число если оно больше 35

begin
  var n:=ReadReal('Введите число:');
  if n>0 then Writeln('Число положительное')
  else if n<0 then Writeln('Число отрицательное');
  if n=35 then n:=71
  else if n<35 then n-=23;
  Writeln('Результат: ',n)
end.