Program Pyramide;
Const N=4;
Var i, j : integer;
Begin
For i:=0 To n Do
Begin
For j:=i+1 To n Do 
write (' ');
for j:=-i To i Do
write ('*');
writeln;
End;
End.