Написать программу в паскале 1/x*x+4*x+5

var X, Y: Real;

begin

  WriteLn("Введите значение аргумента: ");

   ReadLn(X);

// так как деление на ноль вызовет ошибку, исключаем это

   if (X <> 0) then

      begin

         Y:=1/X*X+4*X+5;

        WriteLn("Y= ", Y);

     end;

   else

        WriteLn("Введен недопустимый аргумент");

end.