Positive Zahlen in negative umwandeln

[Sven M.]

Macht's euch doch nicht so schwierig...

Delphi-Quellcode:

if zahl<=0 then
begin
  for i:=1 to zahl do
    begin
      dec(zahl);
    end;
end;