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.输出 :1
