Program membentuk bintang

Program titik;
uses wincrt;
var i,j,n : integer;
Begin
  clrscr;
  n := 5;
  for i:=1 to n do
  begin
    if (i mod 2 = 1) then
    begin
      for j:=1 to ((n-i) div 2) do
        write(' ');
      for j:=1 to i do
        write('*');
      writeln;
    end;
  end;
  readln;
end.