Tính tổng và tích của các số chẵn từ a đến b

Program tong_tich;

Var i,a,b:integer;

      T,S:longint;

Begin

   Write(‘Nhap a,b :’);readln(a,b);

   S:=0;T:=1;

   For i:=a to b do if i mod 2=0 then

     Begin

        T:=T*i;

        S:=S+i;

      End;

   Write(‘Tong tu ‘a’ den ‘b’ la: ‘,S);

   Write(‘Tich tu ‘a’ den ‘b’ la: ‘,T);

Readln

End.