i = 0 ---> i := 0;
S = 0 ---> S := 0;
S := S + i -----> S := S + i;
i := i + 1 ----> i := i + 1;
Kết quả in ra màn hình là : S := S + i ;
=> S = 0 + 10 = 10 
vô trang mình 5 sao nha

câu 3 nha:
+ Tính tổng các số lẻ: 
           T          
           For i = 1 to n step 2
           T + i

*Câu 2 mình ghi lại nguyên chương trình đúng cho!
  i:=0; s:=0;
 while i<=10 do
   begin i:=i+1; s:=s+i end;
 *Câu 3:
program Dayso;
uses crt;
var i,n: longint; s,t: int64;
      a : array [1..100000] of int64;
begin
 clrscr; readln(n);
for i:=1 to n do
 begin
  write('A[',i:2,']='); readln(a[i]);
 end; clsrcr; s:=0; t:=0;
writeln('Day so vua nhap!');
for i:=1 to n do
 begin
   if odd(a[i])=True then t:=t+a[i] else s:=s+a[i];
   writeln('A[',i:2,']= ',a[i]); 
   if i mod 10=0 then readln;
 end; clsrcr;
writeln('Tong so Chan: ',s:0:0);
writeln('Tong so Le: ',t:0:0); readln
end.