program jajaran_genjang;
uses crt;
var
i,x,a,banyak:integer;
begin
clrscr;
write('masukan jumlah bilangan'); readln(banyak);
begin
for i:=banyak downto 1 do
begin
for a:=1 to i do
begin
write(' ');
end;
for x:=1 to banyak do
begin
write('*');
end;
writeln;
end;
end;
writeln;
readkey;
end.