С клавиатуры вводится сорока из двух слов, разделенных пробелом. Составьте программу, которая А) преобразует первые буквы слов к верхнему регистру и вставляет восклицательный знак после каждого слова Б) преобразует первые буквы слов к верхнему регистру, меняет слова местами и вставляет после каждого слова вопросительный знак
var
a, b, input: string;
ab, a_f, b_f: array of string;
begin
// a
Readln(input);
ab := input.Split(' '); a := ab[0]; b := ab[1];
a[1] := Upcase(a[1]); b[1] := Upcase(b[1]);
Writeln(a, '! ', b, '!');
// b
Writeln(b, '? ', a, '?');
end.