program Schleifen;

var
  von, bis: integer;
  zahl, n: integer;
  fakultaet: double;
  eingabe: String;

begin

  writeln;
  writeln('Schleifen');
  writeln('Beispielprogramm zur Berechnung einer Reihe von Fakult„ten');

  repeat
    begin

      write('Berechnung fr Zahlen von: ');
      readln(von);

      write('Berechnung fr Zahlen bis: ');
      readln(bis);

      for zahl := von to bis do
        begin

          n := 1;
          fakultaet := 1;

          while n <= zahl do
            begin
              fakultaet := fakultaet * n;
              n := n + 1;
            end;

          write('Die Fakult„t fr ', zahl, ' lautet: ');
          writeln(fakultaet:0:0);

        end;

      write('Noch einmal? (j/n): ');
      readln(eingabe);

    end;
  until eingabe <> 'j';

end.