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

Question

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

Answer 1

Var x: Integer;
begin
writeln('Введите значение числа x');
readln(x);
if x<0 then<br>writeln('y=',x*x)
else
writeln('y=',Sqrt(x));
end.