2. найти произведение p=(x+ 1/5)(x+ 4/9) … (n выполнить ручную трассировку при х=1, n=3 паскаль

Program pr1;

Var x, i,n:Integer; P,a,b: Real;

Begin

P:=1;

a:=0.2;

b:=11/40;

Writeln ('Введите x');

Writeln ('Введите n');

Read (x);

Read (n);

For i:=1 to n do begin

P:=p*(x+(a+b));

a:= a+b;

end;

Write ('P=',P);

End.