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

Question

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

Answer 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.

---