Улучшение лотереи, Кено Опции

[Anastacia Adesso]

Уф только что домучила программу..
Типа розыгрыш лотереи.
Всё выбираешь, отвечает что уже сделала... Но...
Не пойму как в неё забить табличку с коэфициентами, чтоб узнать выигранную сумму..

Если через массивы..Врядли выйдет нечто хорошее.
А выигранную сумму вычисляем так-
верхняя строка-количество твоих чисел
первый столбик-угаданные числа

коэфициент из таблицы умножается на ставку..
Плиз...Спасайте

 RUS.PAS ( 1.67 килобайт ) Кол-во скачиваний: 309

 keno.txt ( 493 байт ) Кол-во скачиваний: 346

[volvo]

Если я не ошибаюсь, вот так:

table:
  array[0 .. 10, 1 .. 10] of real = (
    {  1    2  3   4   5    6    7     8      9     10}

    (  0,   0, 0,  1,  1,   1,   1,    1,     1,     1), {0}
    (1.5,   0, 0,  0,  0,   0,   0,    0,     0,     0), {1}
    (  0, 4.5, 1,  0,  0,   0,   0,    0,     0,     0), {2}
    (  0,   0, 8,  1,  1,   0,   0,    0,     0,     0), {3}
    (  0,   0, 0, 20,  2,   2,   1,    0,     0,     0), {4}
    (  0,   0, 0,  0, 45,  12,   3,    3,     1,     1), {5}
    (  0,   0, 0,  0,  0, 175,  30,    5,     2,     2), {6}
    (  0,   0, 0,  0,  0,   0, 700,  100,    40,     5), {7}
    (  0,   0, 0,  0,  0,   0,   0, 3000,   350,    55), {8}
    (  0,   0, 0,  0,  0,   0,   0,    0, 10000,   550), {9}
    (  0,   0, 0,  0,  0,   0,   0,    0,     0, 60000)  {10}

  );
...
writeln('you won: ', stavka * table[count, x]);
...

Зачем коэффициент для 0 - не понимаю ...