PROGRAM Test;
    VAR
        Neg: Integer;
BEGIN
    Neg := -50;
    Neg := -Neg;
    WriteLn('number=', neg);
END.