Turmrechenprogramm

[mkinzler]

Delphi-Quellcode:

    
    begin
        ergebnis:=zahl*zaehler;
        writeln(format( '%f X %d = %f', [zahl, zaehler, ergebnis]));
    end;
    zahl := ergebnis;
    FOR zaehler:=9 DOWNTO 1 DO 
    ...