Вычислить произведение P=1,1*1,2*1,3*1,4...2 С помощью программы Pascal. Пожалуйста)!

Question

Вычислить произведение P=1,1*1,2*1,3*1,4...2
С помощью программы Pascal. Пожалуйста)!

Answer 1

Var i,k:integer;
p:real;
begin
k:=1;
for i:=1 to 9 do
begin
p:=p*(1+(k/10));
k:=k+1;
end;
p:=p*2;
writeln(p)
end.