Ввести число a. Если оно не отрицательно, то вычесть из него 30, иначе прибавить 70....

Question

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

Answer 1

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.

---

Comments

Спасибо