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

Входные данные: ввести два целых числа A, B (1<=A,B<=10).

Выходные данные: вывести произведение всех целых чисел
от A до B включительно.

Uses crt;Var i,a,b,pr:integer;BeginClrscr;Pr:=1;RepeatWriteln('Введите числа 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.