Tính giá trị của T (Áp dụng câu lệnh lặp để làm bài)

Tính giá trị của T (Áp dụng câu lệnh lặp để làm bài)
1/ T:= 5;
For i:=2 to 5 do
T:=T+i;
T= ?
2/ T:= 1;
For i:=1 to 4 do
If i mod 2 = 0 then 
T:=T*i;
T= ?