program OEMToANSI; {$APPTYPE CONSOLE} uses Windows; var S: string; begin while not EOF(input) do begin readln(S); OemToChar(PChar(S), PChar(S)); writeln(S); end; end.