<span>целый целый R := A + B
тип результата: целый
целый целый R := A - B
</span><span><span>тип результата: целый
</span>целый целый R := A * B
</span><span>тип результата: целый
целый целый R := A / B
</span><span><span>тип результата: вещественный
</span>целый целый A > B
</span><span><span>тип результата: логический (true/false)
</span>
целый целый A < B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный R := A + B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A - B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A * B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A / B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный A > B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный A < B </span>
<span><span>тип результата: логический (true/false)
</span></span>
Ну как я понял
if (x >= A && x <= B)
P = tg(x);
Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.