DATA: origparzelle(20)      TYPE n,
      origkante(20)         TYPE n VALUE 2,
      aufzuteilen(20)       TYPE n,
      einzelparzelle(20)    TYPE n,
      tmp(20)               TYPE n,
      found                 TYPE i,
      ls                    TYPE string.

PARAMETERS anzahl TYPE i.

WHILE found < anzahl.

  "Originalparzelle muss quadratisch sein
  origkante    = origkante + 1.
  origparzelle = origkante * origkante.

  "Die aufzuteilende Fläche finden
  aufzuteilen  = origparzelle - 1. "Für Anwender
  tmp = aufzuteilen MOD 10.        "Fläche muss sich auf 10 gleich
  IF tmp <> 0.                     "große Stücke aufteilen lassen
    CONTINUE.
  ENDIF.
  einzelparzelle = aufzuteilen / 10.

  "Mindestens eine Parzelle muss quadratisch sein
  tmp = SQRT( einzelparzelle ).
  tmp = tmp * tmp.
  IF tmp <> einzelparzelle. "nicht quadratisch
    CONTINUE.
  ENDIF.

  found = found + 1.
  WRITE: / 'Lösung:', found.
  ls = origparzelle.
  SHIFT ls LEFT DELETING LEADING '0'.
  WRITE: / 'Originalparzelle = ', ls.
  ls = origkante.
  SHIFT ls LEFT DELETING LEADING '0'.
  WRITE: / 'Kantenlänge      = ', ls.
  ULINE.

ENDWHILE.