напишите программу вычисления в Паскаль!!

Ответы:

var x,result:real,

begin

  read(x), {Ввод х}

  result:=sqrt((sin(x)+1)/(cos(x)+1)), {Вычисление значения выражения}

  writeln(result), {Вывод результата на экран}

end.