[Luckduck]

Совсем недавно начал работать с delphi, так что ошибка явно покажется вам элементарной)

Вот задание:
U = min(max(a, b), c), где
a:=sin(x+sqr(y))+exp(x+1);
b:=ln(abs(x-y))+abs(x-y);
c:=(sqr(x)+3*exp(3*ln(y)+2))/(y-1.5);

при x-y>0, y-1.5<>0

Нужно найти U.



Вот моя программа

Код:

var   
  Form1: TForm1;
   x,y,a,b,c,t,u:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);

If (x>y) and ((y) <> (1.5)) then edit3.text:=Format('%10.3f',[u])
else
begin
edit3.Text:='Нет решения';
end;

a:=sin(x+sqr(y))+exp(x+1);
b:=ln(abs(x-y))+abs(x-y);
c:=(sqr(x)+3*exp(3*ln(y)+2))/(y-1.5);

If a>b then t:=a
else t:=b;

If t<c then u:=t
else u:=c;



end;

end.

Проблема в том, что если y=1.5, то выскакивает ошибка синего цвета (знаменатель равен нулю) и лишь затем U принимает значение 'Нет решения'. В первом же условии я написал, что х не должен быть равен 1,5. Почему выскакивает ошибка и как её устронить??