Мини-вопрос Pascal

[valis]

program koord;
uses crt;
var x,y:real;
fl:char; label met1;
begin
met1:clrscr;
writeln('x'); readln(x);

if (x>11) or (x<-7) then writeln ('введенное значение не входит в область определения');
if  ((x>=-3) and (x<=3)) then   Y:=abs((sqrt(9-x*x)-3));
if ((x>=-7) and (x<=-3)) then y:=3;
if ((x>3) and (x<=6)) then y:=-2*x+9;
if ((x>6) and (x<=11)) then y:=x-9; 
writeln('y=',y);

writeln('press 1 for continue'); readln(fl);
if (fl='1') then goto met1;
readln;
end.

Вот код программы в которой,нужно найти y,по введенному значению x.
Функция определена на промежутке x>-7 и x<11. в данной программе при вводе числа не входящего в этой промежуток выводится
"введенное значение не входит в область определения
y=0"
Как откорректировать код чтобы не выводило y=0 при вводе x<-7 и x>11.
Заранее спасибо
Используйте тег [СODE]

[Serge_Bliznykov]

формально ответ на ваш вопрос

if (x>11) or (x<-7) then writeln ('введенное значение не входит в область определения')
else begin
  ... тут Ваши вычисления ....
  вывод Y 
end;

но
по программе есть куча замечаний.

1) надо переделать без меток/Goto
заменить можно на банальный цикл

repeat
....
until (fl<>'1');

2) обратите внимание - в сравнении условий у Вас перехлёст за счёт нестрого сравнения (например, -3 входит в два условия:

if ((x>=-3) and (x<=3)) then Y:=abs((sqrt(9-x*x)-3));
if ((x>=-7) and (x<=-3)) then y:=3;

проверьте по условию задачи, где-то условие должно быть строгим (без равно)

и последнее, при публикации программы на форуме не забывайте про тег [СODE].. (это кнопочка #)