Составить программу нахождения произведения чисел: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.