здравствуйте, помогите пожалуйста, написать блок-схему... - вопрос №975048

здравствуйте, помогите пожалуйста, написать блок-схему к коду:

program s1

P(n) = (2/3)*(4/5)*(6/7)*..*((2*N)/(2*N+1)) }

uses crt; { Модуль нужен для clrscr. }

var n:word; { Из определения выше. n>=1. }

i:integer; { Переменная для цикла. }

p:real; { Произведение. }

begin

clrscr; { Очистка экрана }

writeln(' Вычисление произведения: (2/3)*(4/5)*(6/7)*..*((2*N)/(2*N+1))');

repeat

writeln(' Введите значение (n >= 1)');

write(' n = ');

readln(n); { Считали аргумент }

until n>=1; p:=1; { присвоим начальные значения }

for i:=1to n do p:=p*(i+i)/(i+i+1);

writeln(' Произведение равно: ',p:10:8);

end.