program its_cak;
uses wincrt;
var i,j,k:integer;
begin
for i:=9 downto 1 do
begin
for j:=1 to 1000 do
begin
gotoxy(1,1); write(i);
end;
for k:=1 to 500 do
clrscr;
end;
for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' *** * * ');
writeln(' * * ** * ');
writeln(' **** * * * * ');
writeln(' ****** ** * * ');
writeln(' ****** * * ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;
for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' *** * * ');
writeln(' * * * ');
writeln(' **** * * *');
writeln(' ****** ** * ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;
for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' ** * ');
writeln(' * * * ');
writeln(' **** * * ');
writeln(' ****** ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;
for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln(' * ');
writeln(' * ');
writeln(' **** ');
writeln(' ****** ');
writeln(' ****** ');
writeln(' **** ');
end;
for k:=1 to 300 do
clrscr;
for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('* * * *');
writeln(' * * * * ');
writeln(' * * * ** ');
writeln('* * * * * ');
writeln(' * * ** * * * ');
writeln('* * * ** * ');
end;
for k:=1 to 300 do
clrscr;
for i:=1 to 50 do
begin
for j:=1 to 50 do
begin
gotoxy(i,1);
writeln(' *** ******** ***** ');
gotoxy(i,2);
writeln(' *** ******** *** ');
gotoxy(i,3);
writeln(' *** *** ** ');
gotoxy(i,4);
writeln(' *** *** *** ');
gotoxy(i,5);
writeln(' *** *** ***** ');
end;
for k:=1 to 50 do
clrscr;
end;
gotoxy(1,1);
writeln(' *** *** ** * ');
writeln(' ** * ** * ** * ');
writeln(' ** ***** *** ');
writeln(' ** * ** * ** * ');
writeln(' *** ** * ** * ');
end.
