14 lines
240 B
ObjectPascal
14 lines
240 B
ObjectPascal
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.
|