Hãy cho biết giá trị của s sau khi thực hiện các câu lệnh

hãy cho biết giá trị giá trị của s sau khi thực hiện các câu lệnh
a) s:=0;
i:=2;
while i<=5 do
begin
s:=s+i; i:=i+2;
end;

b) s:=0;
i:=5;
while i>=1 do
begin
s:=s+i;
i:=i-2;
end;