var s,x,y:double; объявление 3-х переменных
begin
write('Введите х = ');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.