Помогите решить плиз....

Question

Помогите решить плиз....

---

Answer 1

Var x,y:real;

begin
readln(x);
if x>=3 then y:=exp(x)+1
else y:=sqrt(4*sqr(x)+3);
writeln(y);
end.