Даны два целых числа a и b (a < b). найти произведение всех целых чисел от a до b включительно. входные данные: ввести два целых числа a, b (1< =a,b< =10). выходные данные: вывести произведение всех целых чисел от a до b включительно.

Uses crt;
Var
i,a,b,pr:integer;
Begin
Clrscr;
Pr:=1;
Repeat
Writeln('Введите числа A=1, b<=10'); readln(a,b);
Until (a=1) and (b<=10);
For i:=a to b do
Pr:=pr*i;

Writeln('Произведение числ от ',a,' до ',b,' равно ',pr);
Readkey;
End.