Найти y при условии , что если x>0 , то y =√x , а если x <= 0то y = x^2+1

program Uravnenie;var  x, y: real;begin  write('Введите значение х: ');  readln(x);  if x > 0    then y := sqrt(x)  else y := sqr(x) + 1;  writeln('y=', y);end.