Tính giá trị của T sau khi thực hiện dãy lệnh sau

----- Nội dung dịch tự động từ ảnh -----
10. Tính giá trị của T sau khi thực hien dãy lệnh sau:
T:= 1; i:= %3;
While i <= n do
begin
T:= T*a;
i:=i+ %3;
end; write('T = ',T);
Cho a = 5, n=2 thì kết quả T là?
11. Tính giá trị của S khi thực hiện dãy lệnh với n= 5:
S:=0; i:= 1;
While i <= n do
=
begin
S:=S+i3;
i:=i+1;
end; write('S = ',S);