Turmrechenprogramm

[FreePascal]

Bei diesem Programm geht es um Turmrechnen, du weisst schon, Pyramidenrechnen
der Quelltext ist jetzt folgender:

Delphi-Quellcode:

program turmrechner; 
uses crt; 
var zaehler:integer; 
    zahl, ergebnis:longint; 
    ergebnis1:real; 


begin 

              clrscr; 
              writeln('Das hier ist ein Turmrechenprogramm. Bitte geben Sie Ihre Startzahl ein!'); 
              readln(zahl); 
              zahl:=ergebnis; 
              FOR zaehler:=1 TO 9 DO 
              

                 begin 
                 ergebnis:=zahl*zaehler; 
                 writeln(zahl,'X' ,zaehler, '=',ergebnis);  
                 end; 



              FOR zaehler:=9 DOWNTO 1 DO 
                  


                  begin 
                  ergebnis:=zahl/zaehler; 
                  writeln(zahl,'/' , zaehler, '=',ergebnis);  
                  end; 

      writeln('Ende der Schleife!'); 
      writeln('Zaehlerstand am Ende der Schleife: ',zaehler);
      readln; 


end.

Das ist jetzt mein Quelltext
Gruß, Martin, der für jede Hilfe sehr dankbar ist.