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

var i,k:integer;p:real;begink:=1;for i:=1 to 9 dobeginp:=p*(1+(k/10));k:=k+1;end;p:=p*2;writeln(p)end.