В чем ошибка в 11 строке

[МИХАИЛ2904]

program kr;
uses crt;
var x,y,Q: real;
    c1,c2,min: real;
begin
writeln('Ââåäèòå x,y');
read(x,y);
if (-2<=x) AND (x<=2) then begin
if y>0 then begin
c1:=power(abs(y+x),3.4);
Q:=exp(sqrt(y-1))+c1;
writeln('Q=',Q:6:1);
end
else writeln('îøèáêà');
end
else if (2<x) and (x<=5) and(x<2) then begin
Q:=(ln(2-x)/ln(4))+cos(x-y)/sin(x-y);
writeln('Q=',Q:6:1);
end
else if (0<sqr(y)-9) or (sqr(y)-9<0) then begin
Q:=(sin(2*x+pi/4)+power(1/3,abs(x-4)))/sqr(y)-9;
writeln('Q=',Q:6:1);
end
else writeln('îøèáêà');
if Q<y then begin
min:=Q;
writeln('min=',min:6:1);
end
else min:=y;
writeln('min=',min:6:1);
end.

______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[type_Oleg]

if y>0 then begin
c1:=power(abs(y+x),3.4);
Q:=exp(sqrt(y-1))+c1;   // а если y=0.5 ?

[МИХАИЛ2904]

Все равно выдает ошибку

[ViktorR]

А какая среда? TP7, Pascal ABC, Free Pascal? А может какая то ...
Сообщение об ошибке написать тут в лом?
На какой стадии появляется ошибка?
На стадии компиляции, на стадии решения (после ввода данных) ?

Полагаю, что надо добавить математическую библиотеку:

uses crt, math;

Но не факт.


PS: при чтении данных с клавиатуры ВСЕГДА используйте readln(), а не read().
read() полезен при чтении данных из файла.

[Вадим Мошев]

Сообщение от МИХАИЛ2904

Все равно выдает ошибку

Какую?

[digitalis]

Если ТР7, то в ней нет power. А ТС - железный партизан, версию Паскаля и под пытками не выдаст. А если АВС, то <censored>