Чему будет равна переменная sum после выполнения фрагмента программы:
i:=35;
sum:=0;
While i>5 do begin
sum:=sum+i/5;
i:=i-5
end;