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.