program phuongt;
uses crt;
var i, n, m, s, t: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
write('Nhap m = '); readln(m);
if n<=m then
begin
s:=0; t:=1;
for i:=n to m do
begin
s:=s+i;
if i mod 2 <>0 then t:=t*i;
end;
writeln('Tong = ', s);
writeln('Tich = ', t);
end
else
begin
s:=0; t:=1;
for i:=n downto m do
begin
s:=s+i;
if i mod 2 <>0 then t:=t*i;
end;
writeln('Tong = ', s);
writeln('Tich = ', t);
end
readln
end.