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.