)решить в паскале: (1-tg x)^ctg x+cos(x-y)

По умолчанию Паскаль считает тригонометрические функции для радиан, но можно перевести в градусы, если нужно (пишите в комментариях)

var x,y:real;
begin
writeln ('Введите x,y в радианах');
read (x,y);
writeln (power((1-tan(x)),(1/tan(x))) + cos(x-y));
end.