program informatica;
vaword, newWord1, newWord2, newWord3, newWord4: string;
begiword := 'informatica';
newWord1 := copy(word, 5, 5)newWord2 := copy(word, 7, 3)newWord3 := copy(word, 9, 3)newWord4 := copy(word, 1, 3);
writeln('New words:')writeln(newWord1)writeln(newWord2)writeln(newWord3)writeln(newWord4)end.
program informatica;
va
word, newWord1, newWord2, newWord3, newWord4: string;
begi
word := 'informatica';
newWord1 := copy(word, 5, 5)
newWord2 := copy(word, 7, 3)
newWord3 := copy(word, 9, 3)
newWord4 := copy(word, 1, 3);
writeln('New words:')
writeln(newWord1)
writeln(newWord2)
writeln(newWord3)
writeln(newWord4)
end.