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

    end;
    readln;
end.