Найти 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.