Даны два целых числа A и B (A < B).
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.