PROGRAM ismétlődő
  VÁLTOZÓK:
    n, i, k, darab: EGÉSZ,
    a: EGÉSZ[10]
 
  BE: n
  i := 0
  darab := 0
  CIKLUS AMÍG i < n
    BE: a[i]
    i := i + 1
  CIKLUS_VÉGE
  i := 0
  k := 0
  CIKLUS AMÍG i < n
    HA a[i] = 0 AKKOR
      darab := darab + 1
    HA_VÉGE
    i := i + 1
  CIKLUS_VÉGE
  HA darab > 0 AKKOR
    KI: darab, " db 0"
  HA_VÉGE
  i := 0
  CIKLUS AMÍG i < n
    k := i + 1
    darab := 1
    CIKLUS AMÍG k < n ÉS a[i] /= 0
      HA a[i] = a[k] AKKOR
        darab := darab + 1
        a[k] := 0
      HA_VÉGE
      k := k + 1
    CIKLUS_VÉGE
    HA darab > 1 AKKOR
      KI: a[i], " "
    HA_VÉGE
    i := i + 1
  CIKLUS_VÉGE
PROGRAM_VÉGE