var

st:string;

i:byte;

begin

write('nhapxaust:');

readln(st);

for i:=1 to length (st) do

if st[i] in ['a'..'z'] then

st[i] := upcase(st[i]);

write('xauketqua:',st);

readln;

end.