Здравствуйте.
У меня такая проблема, компилятор всевремя упирается в одном и том же месте. По теории работать должно :)
Кто разбивается, подкажите в чем загвоздка

((код

program gr;
var
a, x, y:real;
begin
writeLn('Vvedite x');
read(x);
writeLn('Vvedite a');
read(a);
if (a*x)>0 and (a*x)<0.3 then
begin
y:=1+ln(a+x);
end;
if a*x<=(-0.5) or a*x=>0.5 then
begin
y:=(a*a+(sin(x*x*x))/(cos(x*x*x))-5);
end;
else
begin
y:=sqrt(1+a*(sin(x*x)));
end;
writeLn('Y = ', y);
end.
))

FunkieFoO добавил:
if (a*x)>0 and (a*x)<0.3 then
в этой строке подсвечивает знаки сравнения, и глаголит о том что операция непременима к операндам данного типа о_О

попробуй скобки. поставить.

	if ((a*x)>0)and((a*x)<0.3) then

А если так?

все, разобрался.

((код

program gr;
var
a, x, y:real;
begin
writeLn('Vvedite x');
read(x);
writeLn('Vvedite a');
read(a);
if (a*x)>0 then
if (a*x)<0.3 then
begin
y:=1+ln(a+x);
end;
if (a*x)<(-0.5) then
if (a*x)>0.5 then
y:=(a*a+(sin(x*x*x))/(cos(x*x*x))-5)
else
y:=sqrt(1+a*(sin(x*x)));
writeLn('Y = ', y);
end.
))
так работает :)