Сделать программу для решения в 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