{$MODE OBJFPC}
{$APPTYPE CONSOLE}
program Project1;
const
C = #17#16#30#31#207#177;
procedure Print;
var
ShortS: ShortString = C;
AnsiS: AnsiString = C;
begin
Writeln;
Writeln('ShortString = ', ShortS);
Writeln('AnsiString = ', AnsiS);
end;
begin
Writeln('DefaultSystemCodePage = ', DefaultSystemCodePage);
Writeln('ConsoleCodePage = ', TextRec(Output).CodePage);
Print;
SetMultiByteConversionCodePage(TextRec(Output).CodePage);
Writeln;
Writeln('DefaultSystemCodePage = ', DefaultSystemCodePage);
Print;
Readln;
end.