{$codepage UTf8} USES cwstring; VAR cad:String; cad1:PWideChar; BEGIN cad1:='こんにちは'; cad:=cad1; Writeln(cad) END.