Дано а увеличить в 3 Раза если а отрицательное и уменьшить ** 10 в обратном...

Question

Дано а увеличить в 3 Раза если а отрицательное и уменьшить на 10 в обратном случаесрочноодаю 75 баллов паскаль....

Answer 1

var a: integer;

begin;

 Write('a = '); Readln(a);

 if a < 0 then a := a * 3

 else a := a - 10;

 Print(a)

end.