program z317; uses crt; var a:integer;y:real; BEGIN writeln('vvedite a'); readln(a); y:=(a*a+1)/(sqrt(a*a+1)); writeln(y); readln; END.