Что будет выведено на экран в результате выполнения программы:

var sb: set of byte;
i,s: integer;
begin
sb:=

*; 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 + ;
end; write\(s:3\);
for i:=6 to 12 do
if i in sb then inc\(s\); write\(s:3\);
readln;
end.

• 13 15
• 13 14
• 24 26
• 24 25
• 23 24
• Программа вызовет ошибку при выполнении
• Программа вызовет ошибку при компиляции