// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
s:=s.Select(c->c in ['a'..'z']?UpCase(c):c).JoinIntoString('');
Writeln(s)
end.
Пример
My flowers are beautiful! But your's?
MY FLOWERS ARE BEAUTIFUL! BUT YOUR'S?