PROGRAM rombusz
  VÁLTOZÓK:
    i, k, n: EGÉSZ
 
  BE: n
  k := 1
  CIKLUS AMÍG k <= n
    i := n - k
    CIKLUS AMÍG i > 0
      KI: "  "
      i := i - 1
    CIKLUS_VÉGE
    CIKLUS AMÍG i < 2 * k - 1
      KI: " *"
      i := i + 1
    CIKLUS_VÉGE
    KI: SV
    k := k + 1
  CIKLUS_VÉGE
  k := n - 1
  CIKLUS AMÍG k > 0
    i := n - k
    CIKLUS AMÍG i > 0
      KI: "  "
      i := i - 1
    CIKLUS_VÉGE
    CIKLUS AMÍG i < 2 * k - 1
      KI: " *"
      i := i + 1
    CIKLUS_VÉGE
    KI: SV
    k := k - 1
  CIKLUS_VÉGE
PROGRAM_VÉGE