lets STUDY

program bintang_belahketupat;
uses wincrt;
var i,j,n,t,r :integer;
begin
readln (n);
t:=n div 2;
for r:=1 to n do
begin
if (r=t) then
begin
for i:=t downto 1 do
begin
for j:=2*t-1downto 1 do
begin
if ((j<i) or (j>(2*t-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end
else
if r=t+1 then
begin
  for i:=1 to t do
begin
for j:=1 to 2*t-1 do
begin
if ((j<i) or (j>(2*t-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end;
end;
end.