program ideone;var i,j:integer;begin for i:=10 downto 1 do begin for j:=i to 10 do write('*'); writeln(); endend.