Program Negation;

Var
num: Integer;

Begin
num := -3;
WriteLn(num);

End.