怎样用pascal输出一个“王”字？急！！！三天内！

PROGRAM wang;
var i:integer;
begin
writeln('*************************');
for i:=1 to 5 do begin
writeln(' *');end;
writeln(' *********************');
for i:=1 to 5 do begin
writeln(' *');end;
writeln('*************************');
end.

把以下代码用 文本文挡打开
program king;

begin
writeln('王');
end.

保存为.PAS 格式 然后打开

若出现乱码 ：
1：打开运行文件(.exe)
2：右击标题拦--默认值
将“默认代码页”改为“简体中文”

var
c,d:integer;
begin
for c:=1 to 11 do write('*');
for d:=1 to 2 do begin
writeln;
writeln('*':6);
writeln('*':6);
for c:=1 to 11 do write('*');
end;
end.

建议用tp，50*80的
const
a:array [1..4,1..40,1..40] of byte=
(
{songti}
(
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) <