Hãy cho biết đoạn chương trình sau thực hiện công việc gì?

Hãy cho biết đoạn chương trình sau thực hiện công việc gì?
a)       i:=0; T :=0 ;                                            b)    i:=1; T:=0;
    While i<=1000 do                                           While i<=1000 do
         Begin                                                              Begin
              T:=T+1;                                                           T:=T+1;
              i:=i+2;                                                              i:=i+2;
         End;                                                                 End;
giúp mình với mình đang cần gấp :))))))