[ текст ] содержит: [ текст ]

дать x := ['abc'] содержит: ['a'].
 дать y := ['abc'] содержит: ['z'].
 Stdout написать: x, стоп.
 Stdout написать: y, стоп.