Напишите программу на паскале

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.

Если мой ответ вам помог, пожалуйста, выберете его лучшим :) Заранее спасибо