Даны два числа А и В (А<В) . Найти произведение всех целых чисел от А до В включительно. For 

program abc;var a,b,c,i,i1:integer;beginreadln(a,b);if(a<b) then for i:=1 to b dobegini1:=i+1;c:=i1+i;end;if(a>b) thenfor i:=1 to a dobegini1:=i+1;c:=i1+i;end;writeln(c);end.