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.