program ThreeWords;

var
str: string;
word1, word2, word3: string;

begin
str := 'Каблучок';

word1 := Copy(str, 1, 3);
word2 := Copy(str, 4, 4);
word3 := Copy(str, 8, 4);

writeln(word1);
writeln(word2);
writeln(word3);

end.