Найти произведение всех целых чисел от 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.