Программа

FUNCTION UpCaseStr(S:String):string;
                         { Функция перевода строчных букв строки в прописные }
  Var i:byte;        { Счетчик }
  Begin
    for i:=1 to Length(S) do S[i]:=UpCase(S[i]); { Цикл преобразования букв }
    UpCaseStr:=S  { Определение значения функции }
  End;



VAR S:string;
BEGIN
  readln(S);
  writeLn(UpCaseStr(S))
END.