PROGRAM első_5_karakter
  VÁLTOZÓK:
    sz, csere, töröl: SZÖVEG
 
  BE: sz

  ** a)
  KI: "a) Megadott szöveg első szava: "
  ** sz@' '>>" " karakter( space) keresése a sz SZÖVEG- ben
  ** sz SZÖVEG- ből kivágja az első karaktertől az' ' karakterig tejedő SZÖVEG- et
  KI: sz[0:sz @ ' '], SV, SV

  ** b)
  KI: "b) Megadott szöveg elejéről letörlöm az első szót:", SV
  KI: sz[sz @ ' ' + 1:|sz|], SV, SV

  ** c)
  BE: csere
  KI: "c) Lecserélem a megadott szöveg első szavát:", SV
  KI: csere, sz[sz @ ' ':|sz|], SV, SV

  ** d)
  BE: töröl
  KI: "d) Törlöm a következő szó első előfordulását a szövegből: "
  KI: töröl, SV
  KI: sz[0:sz @ töröl], sz[(sz @ töröl + |töröl|):|sz|]
PROGRAM_VÉGE