pascal题用“*”号打印出如下的长方形图案。

很奇怪的问题啊，
最简单的方法，四条writeln语句就搞定了啊
begin
writeln('*********');
writeln('*********');
writeln('*********');
writeln('*********');
end.
如果非要搞复杂了用二重循环写也很好写啊
var
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 9 do //输出一行
write('*');
writeln;//必须等一行输出结束以后才能换行！！
end;
end.

var i,j : longint; //循环变量
begin
for i := 1 to 4 do//行数
begin
for j := 1 to 9 do//每行的个数
writeln; // 回车
end;
end.

这很简单。
VAR I,J:INTEGER;
BEGIN
FOR I:=1 TO 4 DO
BEGIN
FOR J:=1 TO 9 DO WRITE('*');
WRITELN;
END;
END.

begin
writeln('*********');
writeln('*********');
writeln('*********');
writeln('*********');
end.

或
var i,j:shortint;
begin