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


срочноо
даю 75 баллов паскаль....

var a: integer;

begin;

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

 if a < 0 then a := a * 3

 else a := a - 10;

 Print(a)

end.