// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords.Select(w->w[:2].ToUpper+w[2:].ToLower)
.JoinIntoString;
Writeln(s)
end.
Пример
вася ПеТя Коля ТАНЯ маШа НаТАШа глашА сЕрЕжА МаРИнА витаЛиЙ
Вася Петя Коля Таня Маша Наташа Глаша Сережа Марина Виталий