Program FNG;
Uses crt;
Procedure hinhtamgiac;
Var i,j: longint;
Begin
For i:=1 to 5 do
Begin
For j:=1 to i do
Write('*');
Writeln;
End;
End;
Procedure hinhchunhat;
Var i,j: longint;
Begin
For i:=1 to 5 do
Begin
For j:=1 to 7 do
Write('*');
Writeln;
End;
End;
Procedure hinhvuong;
Var i,j: longint;
Begin
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Write('*');
Writeln;
End;
End;
Begin
Clrscr;
hinhtamgiac;
Writeln;
hinhvuong;
Writeln;
hinhchunhat;
Readln
End.