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

Question

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

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

Answer 1

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

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