DATA: kantenlange TYPE i,
      parzelle    TYPE i,
      originalp   TYPE i,
      klienten    TYPE i,
      einm2       TYPE i.

PARAMETERS: anzahl TYPE i.

START-OF-SELECTION.
  DO anzahl TIMES.
    kantenlange = sy-index.
    parzelle    = kantenlange * kantenlange.
    klienten    = parzelle * 10.
    originalp   = klienten + 1.

    WRITE: / 'Kantenlänge:        ', kantenlange.
    WRITE: / 'Parzelle pro Klient:', parzelle.
    WRITE: / 'Klienten gesamt:    ', klienten.
    WRITE: / 'Originalparzelle:   ', originalp.
    ULINE.
  ENDDO.