Question

Составить блок-схему для задачи:«ДаныдвацелыхчислаAиB(A Найти произведение всех целых чисел от A до B включительно.»

помогите,пожалуйста

Answer 1

      var

 p,a,b,i:integer;    

begin

  p:=1;              

  writeln('Введите a и b');

  readln(a,b);      

  for i:=a to b do  

      p:=p*i;        

writeln(p);    

end.