J2_28

//--- Coded_By_NoCtrlZ ---//
var f1,f2:text; s:ansistring; i:integer;
so:set of byte;
thuong:set of byte;
//hoa [65..90];
begin
so:=[48..57];
thuong:=[97..122];
assign(f1,'j2_28.txt');
reset(f1);
assign(f2,'pass_28.txt');
rewrite(f2);
readln(f1,s);
for i:=1 to length(s) do
        if not (ord(s[i]) in so) then
                if ord(s[i]) in thuong then
                s[i]:=upcase(s[i])
                else
                s[i]:=chr(ord(s[i])+32);
write(f2,s);
close(f2);
close(f1);
end.

// For more info contact me: https://www.facebook.com/NoCtrlZ