Viết chương trình in ra màn hình 30 hình chữ nhật Viết chương trình in ra màn hình 40 hình thoi GIúp em với ạ em cần gấp

Viết chương trình in ra màn hình 30 hình chữ nhật

Program baitap;
Uses crt;
Var i,j:integer;
Begin
Clrscr;
For i:=1 to 30 do
     Begin
     For j:=1 to 3 do 
     Writeln('********');
     Writeln('   ');
     End;
Readln
End.

Viết chương trình in ra màn hình 40 hình thoi

Program baitap;
Uses crt;
Var a:integer;
Begin
Clrscr;
For a:=1 to 40 do
     Begin
     Writeln('    *    ');
     Writeln('   ***   ');
     Writeln('  *****  ');
     Writeln('   ***   ');
     Writeln('    *    ');
     Writeln('  ');
     End;
Readln
End.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

*Ba mươi hình chữ nhật :

def hcn() :
    for i in range(4) :
        print("*"*4,end="")
        print()
    print()
for i in range(30):
    hcn()

*Bốn mươi hình thoi

def hthoi():
    print("   *   ")
    print("  ***  ")
    print(" ***** ")
    print("*******")
    print(" ***** ")
    print("  ***  ")
    print("   *   ")
    print()
for i in range(40):
    hthoi()