program Project2; {$APPTYPE CONSOLE} uses SysUtils; var s: AnsiString; i: integer; inp,outp: text; begin assign(inp,'text.in'); assign(outp,'text.out'); reset(inp); rewrite(outp); readln(inp,s); for i:=1 to length(s)do case s[i]of 'q': write(outp,'Q'); 'w': write(outp,'W'); 'e': write(outp,'E'); 'r': write(outp,'R'); 't': write(outp,'T'); 'y': write(outp,'Y'); 'u': write(outp,'U'); 'i': write(outp,'I'); 'o': write(outp,'O'); 'p': write(outp,'P'); 'a': write(outp,'A'); 's': write(outp,'S'); 'd': write(outp,'D'); 'f': write(outp,'F'); 'g': write(outp,'G'); 'h': write(outp,'H'); 'j': write(outp,'J'); 'k': write(outp,'K'); 'l': write(outp,'K'); 'z': write(outp,'Z'); 'x': write(outp,'X'); 'c': write(outp,'C'); 'v': write(outp,'V'); 'b': write(outp,'B'); 'n': write(outp,'N'); 'm': write(outp,'M'); 'Q': write(outp,'q'); 'W': write(outp,'w'); 'E': write(outp,'e'); 'R': write(outp,'r'); 'T': write(outp,'t'); 'Y': write(outp,'y'); 'U': write(outp,'u'); 'I': write(outp,'i'); 'O': write(outp,'o'); 'P': write(outp,'p'); 'A': write(outp,'a'); 'S': write(outp,'s'); 'D': write(outp,'d'); 'F': write(outp,'f'); 'G': write(outp,'g'); 'H': write(outp,'h'); 'J': write(outp,'j'); 'K': write(outp,'k'); 'L': write(outp,'l'); 'Z': write(outp,'z'); 'X': write(outp,'x'); 'C': write(outp,'c'); 'V': write(outp,'v'); 'B': write(outp,'b'); 'N': write(outp,'n'); 'M': write(outp,'m') else write(outp,s[i]); end; close(inp); close(outp); end.