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

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