Составьте программу для вычисления y=cos√x-1/x+1.

Код программы:

program cos1;

var
   x, y: real;

begin
  write('Введите x: ');
  readln(x);
  y := cos(sqrt((x-1)/(x+1)));
  writeln('y = ', y:1:2);
end.