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