Дано число х увеличьте его ** 20 если оно не отрицательно, во всех остальных случаях...

Question

Дано число х увеличьте его на 20 если оно не отрицательно, во всех остальных случаях уменьшить на 10 Помогите по братски Даю 10 баллов

Answer 1

Ответ:

//Pascal

var

 a: integer;

begin

 readln(a);

 if a > 0 then a := a + 20

 else

   a := a - 10;

 writeln(a);

end.