Positive Zahlen in negative umwandeln

[shmia]

Zahl := SQRT(SQR(Zahl)) * round(tan(-pi / 4));