var
 cs, cv: char;
 s: string;
 i, kood:integer;
 fs, fv: text;
begin
 {$I-}
 assign(fs, 'abi');
 reset(fs);
 {$I+}
 if IOResult<>0 then begin
   writeln('Puudub fail abi');
   halt(1);
   end;
 assign(fv, 'abi.rus');
 rewrite(fv);

 while not eof(fs) do begin
    readln(fs, s);
    for i:=1 to length(s) do begin
        cs:=s[i];
        kood:=ord(cs);
        case kood of
         128..159: kood:=kood+64;
         160..175: kood:=kood+64;
         224..239: kood:=kood+16;
        end;
    write(fv, chr(kood));
    end;
    writeln(fv);
 end;
 close(fs);
 close(fv);
end.