program z1; {$APPTYPE CONSOLE} var f1,f2:text; a,b,n,i,j:integer; ch:char; begin assign(f1,'text.in'); assign(f2,'text.out'); reset(f1); rewrite(f2); while not eof(f1) do begin read(f1,ch); if (ord(ch)>64) and (ord(ch)<91) then write(f2,chr(ord(ch)+32)) else if (ord(ch)>96) and (ord(ch)<123) then write(f2,chr(ord(ch)-32)) else write(f2,ch); end; writeln(f2); close(f1); close(f2); end.