Напишите блок схему по коду Паскаль
var a,p:real;

i,n:integer;

Begin

read(a,n);

p:=1;

for i:= 0 to n-1 do

p:=p*(a+i);

writeln(p);

End.