Склавиатуры вводятся любые симворлы. программа должна преобразовать вводимые символы,заменив все буквы одноимёнными большими (другие символы не преобразовывать) ввод символов прекращается, если введён символ*// напишите, программу.

// 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?