Определите значение переменной s после выполнения фрагмента программы:
s:=0;
for k:= -3 to 5 do begin s:=s+k; end;