program Project2; {$APPTYPE CONSOLE} uses SysUtils; var f:text; a:ansistring; i,b:integer; begin assign(f, 'text.in'); reset(f); read(f, a); close(f); b:=length(a); for i:=1 to b do begin if (ord(a[i])>=97) and (ord(a[i])<=122) then a[i]:=chr(ord(a[i])-32) else if (ord(a[i])<=90) and (ord(a[i])>=65) then a[i]:=chr(ord(a[i])+32); end; assign(f, 'text.out'); rewrite(f); writeln(f, a); close(f); end.