"Разветляющие процессы" Прозьба проверить код!

[Dmitriy-e-nest]

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,y:real;
Label M1;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
if a>b then
if 1+cos(a)<>0 then x:=sqr(sin(a))/sqr(1+cos(a))
else
Begin
Showmessage('x not posible');
GoTo M1
end
else if a-b>0 then
if a*(ln(a-b)/(ln(10)))>0 then x:=(ln(a*(ln(a-b)/ln(10)))) else
begin
Showmessage('x not posible');
GoTo M1
end
else
begin
Showmessage('x not posible');
GoTo M1
end;

if x=a then if (b*x)>=0 and (x<>0) then
begin
if ((a+b)/x)+sqrt(b*x)>=0 then y:=sqrt((a+b)/x+sqrt(b*x))
else
Begin
Showmessage('x not posible');
GoTo M1
end;
begin
Showmessage('y not posible');
GoTo M1
end;
end
else if x<a then
if sin(x)/cos(x)+cos(x)/sin(x)<>0 then
y:=1/(sin(x)/cos(x)+cos(x)/sin(x))
else
begin
Showmessage('y not posible');
GoTo M1
end
else if abs(x-b)>=0 then
if (x-a)>=0 then
y:=exp(1/3*ln(abs(x-b)))*sqrt(x-b)
else
begin
Showmessage('x not posible');
GoTo M1
end
else
begin
Showmessage('y not posible');
GoTo M1
end;
Edit3.text:=FormatFloat('0.###',x);
Edit4.text:=FormatFloat('0.###',y);
M1:
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
Edit4.clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.

[Sasha_Smirnov]

Ну нету у меня среды Дэлфи, нету.
Как же ты готовишься-то без неё...
(А процессы — разветвляющиеСЯ.)

[Terran]

У вас здесь ошибка

if x=a then if (b*x)>=0 and (x<>0) then

Вы забыли скобки. Сделайте так:

if x=a then if ((b*x)>=0) and (x<>0) then

[Dmitriy-e-nest]

Спасибо! программа запустилась но мое дано: А=-0,6 В=1
не считает ((