Question

помогите Турбо Паскаль

Answer 1

var
  a, b, x, y, z: real;
begin
  readln(x, y, z);
  a := (sqrt(abs(x - 1)) - sqrt(abs(y))) / (1 + sqr(x) / 2 + sqr(y) / 4);
  b := x*x*x * (power(1 / sin(z), 3) + e);
  writeln('A = ', a, #13, 'B = ', b);
end.

Я не знаю, как в "Турбе" arctan записать, но нашёл, что 1 /sin..  А вообще, не знаю ._.