(1-tgx) (в степениctgx)+cos (x-y)

var s,x,y: double; объявление 3-х переменныхbeginwrite ('Введите х='); readln (x); вводим хwrite ('Введите y='); readln (y); вводим уs: =exp (Ln (1-tan (x)*(cos (x) /sin (x)+cos (x-y); exp (Ln (tan (x)*(cos (x) /sin (x) — это возведение в степень, в натуральном лог. Хранится выражение для возведения в степень, а умножение на нат. Лог. Означает возведение его в нужную нам степень (если бы там умножалось на 2, то тангенс у нас был в квадрате), а там у нас катангенс, значит возводится все в степень котангенса.writeln ('s=',s: 0:4); вывод результатаend.