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] := chr((ord(st[i])+32));

write('xauketqua:',st);

readln;

end.