var a: integer;
begin;
Write('a = '); Readln(a);
if a < 0 then a := a * 3
else a := a - 10;
Print(a)
end.
var a: integer;
begin;
Write('a = '); Readln(a);
if a < 0 then a := a * 3
else a := a - 10;
Print(a)
end.