Составить на языке Паскаля программу, вычисляющую функцию y=x^x, если x<0, иначе y=√x

Предыдущий
вопрос Следующий
вопрос

Программа на языке Паскаль:

program ComputeFunction;
var
x, y: real;
begin
write('Введите значение x: ');
readln(x);
if x < 0 then
y := power(x, x)
else
y := sqrt(x);
writeln('Результат вычисления функции: ', y);
end.

Эта программа запрашивает у пользователя значение переменной x, затем вычисляет функцию y в зависимости от значения x и выводит результат на экран. Если x меньше 0, то вычисляется значение x в степени x (x^x), иначе - квадратный корень из x.