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;

procedure ve;

var i:byte;

begin

               for i:=1 to 30 do

                          begin

                                         writeln('###########');

                                         writeln('#                    #');

                                         writeln('#                    #');

                                         writeln('###########');

                                         writeln;

                          end;

end;

begin

clrscr;

ve;

end.