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

Ответ:

var X, Y: Real;

begin

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

   ReadLn(X);

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

   if (X lt;gt; 0) then

      begin

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

        WriteLn("Y= ", Y);

     end;

   else

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

end.