Looping dengan For

program loop2;
var
 i,j : integer;
 begin
  for i:=15 downto 1 do
   begin
    for j:=1 to i do
     write('*');
     writeln('');
   end;
end.