Паскаль. Нужно написать программы, помогите пожалуйста
1. y=√x^2+4(корень закончился) при x∈[-4;4)
2. y=√x^2-4(корень закончился) при x∈[-4;4)

эти программы не работают

эти программы не работают

ошибка в двух программах - Переменная 'y' нигде не используется

Программы рабочие. "Переменная 'y' нигде не используется" - это предупреждение, а не ошибка.

совершил ошибку, исправил

1.var x: real;beginreadln(x);if (x>=-4)and(x<4) then writeln('y = ',sqrt(x*x+4))else writeln('Функция не определена');end.Пример:2y = 2.828427124746190e+002.var x: real;beginreadln(x);if (x>=-4)and(x<4) then  begin if x*x-4>=0 then writeln('y = ',sqrt(x*x-4)) else writeln('Корень из отрицательного числа'); endelse writeln('Функция не определена');end.Пример:0.5Корень из отрицательного числа