program Project2; {$APPTYPE CONSOLE} var a:string; n,i:integer; begin assign (input,'text.in'); reset(input); assign (output,'text.out'); rewrite(output); readln(a); n:=length(a); for i:=1 to n do begin if a[i]='a' then a[i]:='A'; if a[i]='A' then a[i]:='a'; if a[i]='b' then a[i]:='B'; if a[i]='B' then a[i]:='b'; if a[i]='c' then a[i]:='C'; if a[i]='C' then a[i]:='c'; if a[i]='d' then a[i]:='D'; if a[i]='D' then a[i]:='d'; if a[i]='o' then a[i]:='O'; if a[i]='O' then a[i]:='o'; if a[i]='s' then a[i]:='S'; if a[i]='S' then a[i]:='s'; if a[i]='h' then a[i]:='H'; if a[i]='H' then a[i]:='h'; if a[i]='l' then a[i]:='L'; if a[i]='L' then a[i]:='l'; if a[i]='p' then a[i]:='P'; if a[i]='P' then a[i]:='p'; if a[i]='u' then a[i]:='U'; if a[i]='U' then a[i]:='u'; end; writeln(a); close(output); close(input); { TODO -oUser -cConsole Main : Insert code here } end.