var
st: string;
len, i:integer;
begin
readln(st);
len:=length(st);
for i:=1 to len do
if (st[i]>=’a') and (st[i]<=’z') then
st[i]:=chr(ord(st[i])-ord('a')+ord('A'));
writeln(st);
end.
输入: Hello, my name is Lostmonkey.
输出：HELLO, MY NAME IS LOSTMONKEY.