PROGRAM sorozat_páros
  VÁLTOZÓK:
    sz: SZÖVEG,
    i, hossz: EGÉSZ,
    a, t, g, c: VALÓS
 
  BE: sz
  hossz := |sz|
  a := 0
  t := 0
  g := 0
  c := 0
  i := 0
  CIKLUS AMÍG i < hossz
    sz[i] := NAGY (sz[i])
    HA sz[i] = 'A' AKKOR
      a := a + 1
    HA_VÉGE
    HA sz[i] = 'T' AKKOR
      t := t + 1
    HA_VÉGE
    HA sz[i] = 'G' AKKOR
      g := g + 1
    HA_VÉGE
    HA sz[i] = 'C' AKKOR
      c := c + 1
    HA_VÉGE
    i := i + 1
  CIKLUS_VÉGE
  KI: "Az egyes bázisok %-os előfordulása:", SV
  KI: "A: ", a / hossz * 100, "%", SV
  KI: "T: ", t / hossz * 100, "%", SV
  KI: "G: ", g / hossz * 100, "%", SV
  KI: "C: ", c / hossz * 100, "%", SV
PROGRAM_VÉGE