6 lines
122 B
ObjectPascal
6 lines
122 B
ObjectPascal
begin
|
|
var s := 'abc def';
|
|
var arr : array of string := s.ToWords;
|
|
assert(arr[0] = 'abc');
|
|
writeln(s.ToWords);
|
|
end. |