Множества на языке Паскаль

Что будет выведено на экран в результате выполнения программы: var s1,s2,s3: set of byte; i,sm1,sm2,sm3: integer; begin s1:= [2..6]; s2:=[8..9,11]; s3:= [1..5,254..255]; sm1:=0;{..256} sm2:=sm1; sm3:=sm1; for i:= 0 to 256 do { to 256} if i in s1 then inc(sm1) else if i in s2 then inc(sm2) else if i in s3 then inc(sm3); write (sm1:4,sm2:4,sm3:4); readln; end.

Что будет выведено на экран в результате выполнения программы: var sc, s1, s2: set of char; i,sm1,sm2: integer; begin sc:= ['a'..'f','A']; s1:=sc + ['1'..'8']; s2:= s1 - ['F'..'a']; s1:= s2*['a','b','3'..'6']; sm1:=0; sm2:=sm1; for i:= 32 to 127 do if char(i) in sc then inc(sm1) else if char(i) in s1 then inc(sm2); write(sm1:4,sm2:4); readln; end.

Что будет выведено на экран в результате выполнения программы: var sc: set of char; ss: string; i: integer; begin sc:=['а','е','и','о','у','э','ю','я']; ss:='крокодильчики'; for i:=0 to length(ss) do if ss[i] in sc then write (ss[i]); readln; end.

Что будет выведено на экран в результате выполнения программы: var sb: set of byte; i,s: integer; begin sb:=[1,4..7,11]*[5..10]; s:=0; for i:=6 to 12 do if i in sb then begin inc(s,i); if i mod 4 = 0 then sb:=sb + [i]; end; write(s:3); for i:=6 to 12 do if i in sb then inc(s); write(s:3); readln; end.

Что будет выведено на экран в результате выполнения программы: var sb: set of byte; i,sm1,sm2: integer; begin sb:= [2..5,8]; sm1:=0; sm2:=sm1; for i:= 2 to 9 do if (([2..5,8] + [3..6]) >= sb) then begin inc(sm1); sb:=sb +[i]; end; for i:=1 to 10 do if i in sb then inc(sm2); write(sm1:4,sm2:4); readln; end.