Nhập vào 2 số nguyên a b đưa ra màn hình tổng các số chẵn và tích các số lẻ trong khoảng từ a=>b

program tinh;
uses crt;
var  t, s, a, b, i  : integer;
begin
clrscr;
write('nhap so nguyen a :');readln(a );
write('nhap so nguyen b :');readln(b );
s := 0;
t:= 1;
for i:=a  to b do
if( i mod 2 <> 0 ) then
begin 
t:= t* i;
end;
writeln('tich cac so le  la :', t );
for i:=a  to b do
if( i mod 2= 0 ) then
begin 
s:= s+ i;
end;
writeln(' tong cac so chan la:',s  );
readln
end.

program tong_tich;
var  t, s, a, b, i  : integer;
begin
clrscr;
write('nhap a :');readln(a );
write('nhap  b :');readln(b );
s := 0;
t:= 1;
for i:=a  to b do if( i mod 2 <> 0 ) then begin 
t:= t* i;
end;
writeln('tich cac so le  la :', t );
for i:=a  to b do if( i mod 2= 0 ) then begin 
s:= s+ i;
end;
writeln(' tong cac so chan la:',s  );
readln
end.