PROGRAM szimmetrikus
  VÁLTOZÓK:
    n, i, k: EGÉSZ,
    a: VALÓS[10][10],
    háromszög: LOGIKAI,
    bf: BEFÁJL
 
  háromszög := IGAZ
  MEGNYIT bf: "mátrix"
  BE bf: n
  i := 0
  CIKLUS AMÍG i < n
    k := 0
    CIKLUS AMÍG k < n
      BE bf: a[i][k]
      k := k + 1
    CIKLUS_VÉGE
    i := i + 1
  CIKLUS_VÉGE
  LEZÁR bf
  i := 0
  CIKLUS AMÍG i < n ÉS háromszög
    k := 0
    CIKLUS AMÍG k < i ÉS háromszög
      HA NEM (a[i][k] = 0) AKKOR
        háromszög := HAMIS
      HA_VÉGE
      k := k + 1
    CIKLUS_VÉGE
    i := i + 1
  CIKLUS_VÉGE
  KI: háromszög
PROGRAM_VÉGE