Question

Помогите переведите на язык Паскаль !!!!!!))))))))))

Answer 1

var x,z:real;

begin

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

read(X);

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

writeln(z);

end.