Написать в Паскале массив вида

0001
0010
0100
1000
Должно получиться примерно как на фотографии , но там массив 1000 0100 0010 0001