Вычислить произведение положительных значений функции, меньших 1

[wowan]

вычислил значение функции. необходимо добавить условие: "Вычислить произведение положительных значений функции, меньших 1"

uses crt;
const a=2.1;
var x, xr, b, c, h, s, y: real;
begin
clrscr;
writeln('Введите интнрвал и шаг:');
read(b, c, h);
writeln('Таблица значений');
writeln(' x (градусов) x (радиан) y ');
writeln('-----------------------------------------');
s:=0; x:=b;
while x<=c do
begin
xr:=(x*pi)/180;
y:=1-(sin((sqr(xr)+2*a)/sqrt(xr+sqr(a)))/cos((sqr(xr)+2*a)/sqrt(xr+sqr(a))));
writeln(' ', x:5:0, ' ', xr:5:2, ' ', y:5:2);

x:=x+h;
end;

readkey;
end.