s := '123' s := s + '0' + s s := s + s вывод s
s := '123' s := s + s[2] + s + s[3] вывод s
s := '12345' n := длин(s) + длин('456') вывод n
s := '123456789' s1 := 'abcdef' s := s[5:6] + '0' + s1[3:5] вывод s
s := '123456' q := 'abc' удалить ( s, 2, 3 ) вставить( s, q, 2 ) вывод q
s := '123456789' удалить ( s, 1, 2 ) n := позиция ( '6', s ) вывод n
s := '123456789' n := позиция ( '456', s) удалить ( s, n+2, 3 ) вывод s
s := '123456' нц пока длин(s) > 0 удалить ( s, 1, 2 ) вывод '1' кц
c := 0 нц ... если p <> 0 то c := c + 1 удалить(S, 1, p+1) все кц при p = 0
c := 0 нц для k от 1 до длин(S) если S[k] = '0' то ... все кц
Q := '123456789' S := '1' нц для k от 2 до 9 ... кц