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

var x: Integer;beginwriteln('Введите значение числа x');readln(x);if x<0 thenwriteln('y=',x*x) elsewriteln('y=',Sqrt(x));end.