Подумайте, какие социальные роли вы уже играете в жизни. Заполните схему

Var n:integer;
var x,P:Real;
begin  writeln ('введите x'); 
  Readln(x); 
  P:=1; 
  for n:=1 to 6 do P:=P * (x-(power (2,n)-1))/(x-(power(2,n)));  
  writeln ('P= ',P );
end.