Помогите написать код на языке Паскаль. Вот ниже блок-схема! Буду очень

xn = 1xk = 10dx = 0.3Программа доходит только до 9.7, желая обязана доходить 10...

Нестрогое неравенство, цикл же должен продолжится, если x = xk ?

Светло, спасибо

Var
   xn,xk,dx,S,P,x,y:real;
   k:integer;
Begin
Write('xn = ');
ReadLn(xn);
Write('xk = ');
ReadLn(xk);
Write('dx = ');
ReadLn(dx);
S:=0;
P:=1;
k:=0;
x:=xn;
While x lt;= xk do
   Begin
   y:=Exp(Sin(x))*Cos(x);
   WriteLn('f(',x,') = ',y);
   if y gt;= 0 then S:=S+y
   else k:=k+1;
   if y lt;gt; 0 then P:=P*y;
   x:=x+dx;
   End;
WriteLn('S = ',S);
WriteLn('P = ',P);
WriteLn('k = ',k);
End.