Was ist daran falsch? kleiner Quelltext zu Wundersame Zahlen, Zahl gerade oder ungera

[ZyzzFuuark]

Wenn n gerade ist soll n/2 gerechnet werden, wenn n ungerade n*3+1, und das solange bis n=1 ist. Auch genannt Wundersame Zahlen

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
  VAR n:integer;
begin
  n:= strtofloat (e_zahl.Text);
  e_text.text:= floattostr(n);
  repeat
    if Odd(n) then  n/2 else   n*3+1;
  until n=1;

end;

end.