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