program For8;
var
A,B:integer;
temp:integer;
i:integer;
begin
temp:=1;
repeat
writeln('Введите A и B:');
readln(A,B);
until (A<B);
for i:=A to B do
begin
temp:=temp*i;
end;
writeln('Произведение :',temp);
end.