Question

Помогите пожалуйста это срочно
Определите значение переменной s После выполнения фрагмента алгоритма
a) s:=0
m:=6
for i:=3 to m do
s:=s+i
B) s:=0
i:=4
while i>0 do
begin
i:=i-1
s:=s-i*2
end.