Viết chương trình pascal vẽ 30 hình chữ nhật ra màn hình(có các cạnh là các kí hiệu #,sử dụng chương trình con_Thủ tục)

uses crt;
procedure hcn;
var n:Integer;
begin
    for n:=1 to 30 do
        begin
            writeln('###############');
            writeln('#             #');
            writeln('#             #');
            writeln('###############');writeln;
        end;
end;
begin
clrscr;
hcn;
{samon247}
end.

uses crt;

var k : byte;

procedure HCN;

var i, j : byte;

begin

for i := 1 to 10 do write('#');

writeln; write('#');

for j := 1 to 8 do write(' '); write('#');

writeln; for i := 1 to 10 do write('#');

end;

begin

clrscr;

for k := 1 to 30 do begin

HCN; writeln; writeln; end;

end.