Специальные цены на продукты IBM Lotus
pattern:="да";list:= "да нет да да было да ту ту да ту";tmp:=@Explode(@Trim(list));quantity:=@Elements(tmp);cnt:=0;@For(i:=1;i<=quantity;i:=i+1;@If(tmp[i]=pattern;cnt:=cnt+1;@Success));cnt