PROGRAM hányszorszerepel
  VÁLTOZÓK:
    s, x: SZÖVEG,
    i, n, darab: EGÉSZ
 
  BE:n
  i := 0
  darab := 0
CIKLUS AMÍG i < n+1
    BE:s
    HA s@"alma"<|s| AKKOR
      darab := darab + 1
    HA_VÉGE
    i := i + 1
  CIKLUS_VÉGE

  KI: darab
PROGRAM_VÉGE