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

var a,b:integer; p:real;beginwrite('a='); readln(a);write('b='); readln(b);p:=1;while a<=b do begin p:=p*a; a:=a+1; end;writeln('p=',p);end.Пример:a=2b=5p=120