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