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