Программа Pascal ABC (Не пишите, "Да этож легко"), Если легко, напишите

программа в pascal abc задано натуральное число n вычислить p= (1-1/2)*(1-1/4)... где n>2 помогите пжлст Напишите пожалуйта всю программу начиная program ...;
var...;
begin и заканчивая End. Заранее спасибо!
Добавлено 4 минуты назад
повторяется n раз

Добавлено 3 минуты назад
p=(1-1/2)*(1-1/4)*(1-1/6)*(1-1/8)....
n раз