program WordsExchange;

var
text, firstPart, middlePart, lastPart, newText: string;
spaceIndex1, spaceIndex2: integer;

begin
writeln('Enter a text with nine words: ');
readln(text);

spaceIndex1 := pos(' ', text);
spaceIndex2 := pos(' ', text, spaceIndex1 + 1);

firstPart := copy(text, 1, spaceIndex1);
middlePart := copy(text, spaceIndex1 + 1, spaceIndex2 - spaceIndex1 - 1);
lastPart := copy(text, spaceIndex2 + 1, length(text) - spaceIndex2);

newText := lastPart + middlePart + firstPart;

writeln('Original text: ', text);
writeln('Text with first and last four words exchanged: ', newText);
end.