Запишите значение переменной sum после выполнения фрагмента программы.
sum:=0;
for i:=7 to 10 do
sum:=sum+i;