Сделать программу для решения в pascal x^2+4x+5, если х< =2 f(x)= 1/(x^2+4x+5), если x> 2

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

Пример:
x = -3
f = 2