посчитайте переведите на язык Паскаль ))))))))))

var x,z:real;

begin

writeln('введите X');

read(X);

z:=sqrt(sqr(1/tan(x))+4);

writeln(z);

end.