program Project2; {$APPTYPE CONSOLE} var s,s1:string; i:integer; begin assign(Input,'text.in'); reset(Input); readln(s); Close(Input); s1:=''; for i:=1 to length(s) do if s[i] in ['A'..'Z'] then s1:=s1+chr(ord(s[i])+32) else if s[i] in ['a'..'z'] then s1:=s1+chr(ord(s[i])-32) else s1:=s1+s[i]; assign(Output,'text.out'); rewrite(Output); writeln(s1); close(Output); end.