silahkan mencoba program ini di TPW, dan lihatlah ....
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(' * * ** * ...
