program ConcatenateWords;
varword1, word2, word3, word4: string;
beginwriteln('Enter the first word: ');readln(word1);
writeln('Enter the second word: ');readln(word2);
writeln('Enter the third word: ');readln(word3);
writeln('Enter the fourth word: ');readln(word4);
writeln(word1 + ' ' + word2 + ' ' + word3 + ' ' + word4 + '???');writeln(word1 + ' ' + word2 + ' ' + word3 + ' ' + word4 + '????');writeln(word1 + ' ' + word2 + ' ' + word3 + ' ' + word4 + '?????');end.
program ConcatenateWords;
var
word1, word2, word3, word4: string;
begin
writeln('Enter the first word: ');
readln(word1);
writeln('Enter the second word: ');
readln(word2);
writeln('Enter the third word: ');
readln(word3);
writeln('Enter the fourth word: ');
readln(word4);
writeln(word1 + ' ' + word2 + ' ' + word3 + ' ' + word4 + '???');
writeln(word1 + ' ' + word2 + ' ' + word3 + ' ' + word4 + '????');
writeln(word1 + ' ' + word2 + ' ' + word3 + ' ' + word4 + '?????');
end.