Сделать программу для решения в Pascal

x^2+4x+5, если х<=2
f(x)=
1/(x^2+4x+5), если x>2

var x,f:real;beginwrite('x = ');readln(x);if x<=2 then f:=x*x+4*x+5else f:=1/(x*x+4*x+5);writeln('f = ',f);end.Пример:x = -3f = 2