Помогите пожалуйста!Задание на фотке!!!

program aaa;
var
   x,y:real;
begin
   readln(x);
   if(x>0) then y:=sqrt(x-4)
    else y:=abs(x+7);
   writeln(y);
end.


Вообще в задаче ошибка - если x будет от 1 до 3, то у нас будет отрицательный корень, что невозможно.