Как записать это через паскаль?

Question

Как записать это через паскаль?

---

Answer 1

Program prog;
uses crt;

var a: real;

begin
clrscr;

write('a = ');
readln(a);

writeln('y = ', ((sqr(a)+1)/sqrt(sqr(a)+1)):0:3);
end.