• Source
    1. program ideone;
    2. var
    3. i,j:integer;
    4. begin
    5. for i:=1 to 10 do
    6. begin
    7. for j:=i to 10 do
    8. write('*');
    9. writeln();
    10. end
    11. end.