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

vara,b,i,s:integer;beginwriteln('Введите A:');readln(a);writeln('Введите B:');readln(b);s:=1;for i:=a to b dos:=s*i;writeln('произведение всех целых чисел от A до B включительно:', s);end.