uses crt;
const nn=255;
type keno=set of byte;
var ke, polz: keno;
    i,j,f: integer;
    count: integer;
    c: char;
    stavka: real;
    x {chisla}, igra {igry}: integer;

begin
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;
readkey;
end.