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 a[i]>=65) then a[i]:=chr(a[i]+32); end; assign(f, 'text.out'); rewrite(f); writeln(f, a); close(f); end.