var
x: real;
begin
readln(x);
if x < 2 then write(x * x + 4 * x + 5);
if x = 2 then write(1 / (x * x + 4 * x + 5));
if x > 2 then write(1);
end.
var x: real;
y:integer;
begin
read(x);
if x < 2 then y:= sqr(x) + 4 * x + 5
else if x = 2 then y:= 1 / (sqr(x) + 4 * x + 5)
else if x > 2 then y:=1;
Writeln(y);
end.
Если мой ответ вам выберете его лучшим :) Заранее
