Вычислить произведение p=1,1*1,2*1,3*1, с программы pascal. )!

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.