PROGRAM szimmetrikus
  VÁLTOZÓK:
    n, i, k: EGÉSZ,
    a: VALÓS[10][10],
    szimmetrikus: LOGIKAI,
    bf: BEFÁJL
 
  szimmetrikus := 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 szimmetrikus
    k := 0
    CIKLUS AMÍG k < n ÉS szimmetrikus
      HA NEM (a[i][k] = a[k][i]) AKKOR
        szimmetrikus := HAMIS
      HA_VÉGE
      k := k + 1
    CIKLUS_VÉGE
    i := i + 1
  CIKLUS_VÉGE
  KI: szimmetrikus
PROGRAM_VÉGE