Дано х. Вычислите у, если: Запрограммируйте ** любом языке) Пожалуйста

Question

Дано х. Вычислите у, если:
Запрограммируйте на любом языке) Пожалуйста

---

Answer 1

Program one;
var
x,y:real;
begin
write('Vvedite  X=>');Readln(x);
if x>2 then y:=1/(x*x+4*x+5) else y:=x*x+4*x+5;
Writeln ('Y=',Y);
end.

Comments

спасибо большое) Паскаль?

---

да. а на каком надо?

---

на Паскале пойдет) огромное спасибо