Delphi-Quellcode:
clrscr;
writeln('Das hier ist ein Turmrechenprogramm. Bitte geben Sie Ihre Startzahl ein!');
readln(zahl);
zahl:=ergebnis;
Du liest Zahl von der Konsole ein und überschreibst Zahl danach gleich mit Ergebnis (also zahl:=ergebnis ersatzlos streichen)