RosettaCodeData/Task/Sierpinski-triangle/PascalABC.NET/sierpinski-triangle.pas

const
  order = 4;

begin
  var size := 1 shl order - 1;
  for var y := size downto 0 do
  begin
    write(' ' * y);
    for var x := 0 to size - y do
      if (x and y) <> 0 then write('  ')
      else write('* ');
    writeln
  end;
end.