uses crt;
var i,n:longint;
begin
clrscr;
n:=1;
while 13>=n do
begin
for i:=1 to n do write('*');
writeln;
inc(n,2);
end;
readln;
end.
----------------------------------------------
uses crt;
var i,j:longint;
begin
clrscr;
for i:=1 to 12 do write('*');
writeln;
for i:=1 to 4 do
begin
for j:=1 to 2 do write('* ');
writeln;
end;
for i:=1 to 12 do write('*');
readln;
end.
