Составить программу, которая бы запрашивала Хнач и Хкон и определяла произведение всех положительных чисел от Хнач до Хкон (решить задачу, используя цикл с предусловием – While .. Do). Пож помогите

//Pascal WDEVar xk,xn:real; i,r,xik,xin:integer; b:boolean;beginb:=false;r:=1;read(xn,xk);xin:=round(xn-frac(xn));xik:=round(xk-frac(xk));i:=xin;while i<=xik dobeginif i>0 then begin  r:=r*i;  b:=true; end;inc(i);end;if b=true then write(r) else write('0');end.Пример ввода:-2.83.8Пример вывода:6