uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('A,B: ');
readln(a,b);
for i:=a to b do
p:=p*i;
writeln('Произведение = ',p);
readln;
end.
uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('A,B: ');
readln(a,b);
for i:=a to b do
p:=p*i;
writeln('Произведение = ',p);
readln;
end.