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

Program prog;

uses crt;

var a, b, i, p: integer;

begin

clrscr;

p:=1;

write ('Введите значение а = '); readln (a);

write ('Введите значение b = '); readln (b);

if b>=a then begin

for i:=a to b do

p:=p*i;

writeln ('Произведение Р = ', p);

end

else

writeln ('a > b');

end.