uses crt;
const nn=255;
type keno=set of byte;
type koeficienty=array[1..10, 1..11] of real;
var ke, polz: keno;
    k: koeficienty;
    i,j,f: integer;
    count: integer;
    c: char;
    stavka, koef: real;
    x {chisla}, igra {igry}: integer;

begin
k[1,1]:=1.5; k[2,2]:=4.5; k[3,1]:=1; k[3,3]:=8; k[4,4]:=20; k[4,3]:=1;
k[5,5]:=45; k[5,4]:=2; k[5,3]:=1; k[6,6]:=175; k[6,5]:=12; k[6,4]:=2;
k[7,7]:=700; k[7,6]:=30; k[7,5]:=3; k[7,4]:=1; k[8,8]:=3000; k[8,7]:=100;
k[8,6]:=5; k[8,5]:=3; k[9,9]:=10000; k[9,8]:=350; k[9,7]:=40; k[9,6]:=2;
k[9,5]:=1; k[10,10]:=60000; k[10,9]:=550; k[10,8]:=55; k[10,7]:=5;
k[10,6]:=2;k[10,5]:=1;
for i:=4 to 10 do begin
    k[i,11]:=1;
end;
clrscr;
writeln('Keno '); writeln('Vyberi kolichestvo chisel (ot 1 do 10)');
writeln('Klavishi 1-9. Esli 10 -zhmi 0');
c:= readkey;
if c='0' then x:=10 else x:=ord(c)-48; writeln(x);
readkey;
polz:=[];
writeln('Vvedi chisla');
   for i:=1 to x do begin readln(j);
       polz:=polz+[j];
   end;
writeln('Vyberi stavku');
write(' 0.10-a  0.20-b  0.30-c  0.40-d  0.50-e  1.00-f  2.00-g  4.00-h ');
writeln;

c:=readkey;
case c of
    'a': stavka:=0.10;
    'b': stavka:=0.20;
    'c': stavka:=0.30;
    'd': stavka:=0.40;
    'e': stavka:=0.50;
    'f': stavka:=1.00;
    'g': stavka:=2.00;
    'h': stavka:=4.00;
end;
writeln('Tvoya stavka ',stavka:3:2);
writeln('Vyberi kolichestvo igr');
writeln('  1-a   2-b   3-c   4-d   6-e   12-f   14-g  ');
c:=readkey;
case c of
    'a': igra:=1;
    'b': igra:=2;
    'c': igra:=3;
    'd': igra:=4;
    'e': igra:=6;
    'f': igra:=12;
    'g': igra:=14;
end;

writeln('Kolichestvo igr ',igra);
writeln('Summa ',(stavka*igra):4:2);
writeln('Tvoi chisla');
for i:=1 to x do write('*   ');
writeln;
writeln('Razygrannye chisla:');
randomize;
ke:=[];
i:=0;
repeat
f:=random(62)+1;
if not (f in ke) then
   begin
     ke:=ke+[f];
     write(f,'  ');
     inc(i);
   end;
until i=20;
writeln;
if ke=polz then writeln('Ty ugadala vse chisla!!!')
   else begin
    count:=0;
    for i:=1 to 62 do
      if (i in polz) and (i in ke) then inc(count);
    writeln('U tebya sovpalo ',count,' chisel');
   end;

if count=0 then
 if x>=4 then koef:=1
 else koef:=k[x,count];
writeln('Koeficient ',koef:6:1);
writeln('Ty vyigral ',(stavka*koef):10:2);
readkey;
end.