program tttt; uses crt; type Mset=set of char; var sk,bil:Mset;{sk-u4eniki,bil-bilet} i:char; x:integer; c:char; begin clrscr; sk:=[]; bil:=[]; writeln('na4aljnoe mnozestvo iz u4enikov:'); for c:='A' to 'Z' do sk:=sk+[c]; for c:='A' to 'Z' do if c in sk then write(c,' '); writeln; writeln('no4aljnoe mnozestvo iz biletov:'); for c:=1 to 15 do bil:=bil+[c]; for c:=1 to 15 do if c in bil then write(c,' '); randomize; writeln;