Помогите пожалуйста！ Номер 3 Нужно в паскале

Question

Помогите пожалуйста！
Номер 3
Нужно в паскале

---

Answer 1

Var x,f:real;
begin
write('x = ');
readln(x);
if x<=2 then f:=x*x*x-4*x+5<br>else f:=1/(x*x+4*x+5);
writeln('f = ',y:5:2);
end.

Пример:
x = 1
y = 2.00