Составить программу нахождения произведения чисел: 1/2, 2/3 9/10 язык: pascal

Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.

А если немножко подумать сначала?



Так что нужно просто вывести 0.1 ))))

begin
   Writeln('0.1')
end.