{Keno. Rezuljtat ne vyvoditsya. Modele Keno speles izlozi Rezultatu neizvada Lietotajs ievada savus skaitlus Dators pazino} uses crt; const kolich=4; nn=255; type keno=set of byte; var ke, polz: keno; i,j,f: integer; begin clrscr;polz:=[]; writeln('Ievadi skaitljus'); for i:=1 to kolich do begin readln(j); polz:=polz+[j]; end; writeln('Jusu skaitli'); for j:=1 to nn do if (j in polz) then write(j,' '); writeln; writeln('Datora skaitli ir:'); 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=kolich; writeln; if ke=polz then writeln('Ty vyigral!') else writeln('Ty ne vyigral!'); readkey; end.