program mnozestva;
type sett=set of byte;
var set1:sett;
i:integer;
x:integer;
c:char;
begin
set1:=[];
i:=1;
writeln;
repeat
writeln('vvedite',i,' element mnozestva');
readln(x);
set1:=set1+[x];
writeln('nazmite''.'',4tobi zakon4it vvod');
c:=readkey;
inc(i);
until c='.';