PolaBintang

program bintang;
uses crt;
var
 i,j,k,n:integer;
begin clrscr;
readln(n);
 for i:=1 to n do //for untuk baris
    begin
        for j:=n downto i do //for untuk spasi
            begin
                    write(' '); //menulis spasi
                end;
        for k:=1 to i do //for untuk bintang
                begin
                    write('*'); //menulis bintang
                end;
        writeln; //mencetak baris baru
    end;
readln;
end.