Найти произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b>=a).

program prog;uses crt;var a,b,i,p: integer;beginclrscr;p:=1;write('Введите значение а = '); readln(a);write('Введите значение b = '); readln(b);if b>=a then beginfor i:=a to b dop:=p*i;writeln('Произведение Р = ', p);endelsewriteln('a > b');end.