Даны  два  числа A и B найти  произведение всех  целых  чисел из  промежутка от A до B

P:=0; for i:=a to b do   for j:=a to b do     P:=p+i*j;   Не забываем про спасибо :)

Program Zadacha; var     a, b: integer;     min, max: integer;     p: integer;     i: integer; Begin     Write('Enter a, b ');     ReadLn(a, b);          if (a < b) then     begin         min := a;         max := b;     end     else     begin         min := b;         max := a;     end;          p := 1;     for i := min to max do         p := p * i;              WriteLn(p);                      ReadLn; End.