Tính tổng và tích của các số chẵn từ a đến b giúp em với ạ

program tong;

uses crt;

var a,b,i,T,tich: integer;

Begin

         clrscr;

         write(‘Nhap a: ‘); readln(a);

         write(‘Nhap b: ‘); readln(b);

         tich:=1;

         for i:=a to b do

               if i mod 2=0 then

               begin

                        T:=T+i;

                        tich:=tich*i;

               end;

         write(‘T = ‘,T,’, tich = ‘,tich);

         readln

End.