Задача 4.1. Обчислити значення виразу.

Program Rozgaluz;
Var x,y: real;
Begin Write('Введiть х='); ReadLn(x);
if x>0 then y:=SQR(x)+1 else y:=SQRT(x*x+5);
writeLn('X=',x:5:2,' Y=',y:5:2)
End.

Результати роботи програми:
Введіть х=2
X= 2.00 Y=5.00

Введіть х=-3
X=-3.00 Y=3.74

Завдання 4.1. Обчислити: