Дан ряд -1; 0,5; 2 . . . Рассчитайте произведение дробных чисел в интервале от А до В. посчитайте на языке паскаль

program mult;

var a, b, i, m: real;

begin

Readln(a, b);

i := a;

m := 1;

while i <= b do begin

m *= i;

i += 1. 5;

end;

WriteLn(m);

end.