Что будет выведено на экран в результате выполнения программы: 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. 6 7 6 6 7 7 8 7 7 6 Программа вызовет ошибку при компиляции Программа вызовет ошибку при выполнении :