Чему будет равна пременная sum после выполнения фрагмента программы: 

sum:=0;

for i:=6 to 8 do

sum:=sum+i;

0