Написать программу вычесления значения следуещей функции:

Question

Написать программу вычесления значения следуещей функции:

---

Answer 1

Program n1;
var y,a:integer;
Begin
 writeln('Введите a');
 readln(a);
 y:=(sqr(a)+10)/sqrt(sqr(a)+1);
 writeln('y=',y);
end.

Answer 2

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:= ReadReal('a =');
Writeln('y = ', (a**2+10)/(sqrt(a**2 + 1)));
end.

Пример:
a = 1
y = 7.77817459305202