Program Segitiga Bintang

program segitiga;
uses winCrt;
var p,q,r,s:integer;
begin
write ('banyaknya baris = ');
readln(p);
for r:=1 to p do
begin
for q:= p downto r do
write (' ');
for q:=1 to r*2 do
write ('*');
writeln;
end;
end.