сега се замислих- то всъщност числото х което търся е в някаква област - и сътворих това:

Program Neravenstvo;
var a,b,x,y:real;
Begin
write('Vavedete 4isloto a:'); read(a);
write('Vavedete 4isloto b:'); read(b);
y:=b/a;
if y-1<y or (y-1)+1=y then y=x ****
write('4isloto x, koeto udowletworqwa neravenstvoto e',x:4:2)
else write('polu4enoto 4islo ne udowletworqwa nerawenstwoto')
End.

но на реда със звезди4ките ми дава грешка operand types do not match operator - error 41

защо ?!