Algorithmique et Structures de Données Statiques

program etoile_pyr;
var i,j,n:integer;
     s:string;
begin
readln(n);
s:=' ';
for i:=1 to n do
begin
for j:=i to n do  write(' ');
s:='*'+' '+s;
writeln(s);
end;
end.