[Bargest]

Код:

const a:array[0..9,0..9] of byte = ((1,1,1,1,1,0,1,1,1,1),
                                    (1,1,1,1,1,0,1,1,2,1),
                                    (1,1,1,1,1,0,1,1,1,1),
                                    (1,1,1,1,1,4,1,1,1,1),
                                    (1,1,1,1,1,0,1,1,1,1),
                                    (1,1,1,1,1,0,1,1,1,1),
                                    (1,1,1,1,1,0,1,1,1,1),
                                    (1,1,2,1,1,2,1,1,1,1),
                                    (1,1,1,1,1,0,1,1,1,1),
                                    (1,1,1,1,1,0,1,1,1,1));

По крайней мере так было в пасе.