Отыскать творенье чисел: 2/3 * 2/5 * 2/7 ... *2/15 ПАСКАЛЬ

program zz1;

var  i:integer; // задаем переменную целого типа

b:real; // задаем переменную не целого типа

begin

i:=3; // задаем изначальное значение для знаменателя

b:=1; // задаем изначальное значение для творения

while i lt;= 15 do  // организуем цикл, пока знаменатель не достигнет числа пятнадцати

begin

b:=b * 2 / i;  // вычисляем творенье

i:=i + 2; // получаем последующий знаменатель

end;

writeln( произведение данных чисел = , b:10:8); // выводим ответ в формате 10 символов для всего числа и восемь символов после точки

end.