program bintang-menurun

program bintang2;
uses crt;
var i,j,n : integer;
begin clrscr;

write ('===program bintang2===');
readln (n);

for i := 0 to n do begin
for j := i+1 to n do begin
write(' * ');
end;
writeln;
end;

writeln ('by:dolpiana yolanda');
readln;
end.