Positive Zahlen in negative umwandeln

[Teekeks]

aber wie zu allen themen: die antwort lautet 42! Die zahl muss also 42mal minus 42 genommen werden. den sie dann immernoch >0 ist dan nochmal
also:

Delphi-Quellcode:

function negation(zahl, diezahl:integer):integer;
//macht aus JEDER zahl eine Negative ^^
goto 1;  //da ich noch nie GOTO´s angewendet habe vermute ich einfach mal das die hier deklariert werden
i, x:integer;
begin
  diezahl:=42; //damit kann ausgeschlossen werden das unwissende etwas anderes angeben!
1:for i:=0 to diezahl do
    for x:=0 to diezahl do
      zahl:=zahl-diezahl;
  if zahl>=0 then goto 1;
end;

damit dürfte IMMER etwas negatives rauskommen auch wenn man eine noch so hohe zahl nimmt!