Question

Помогите решить 3 задачу (9 класс.Паскаль)

Answer 1

Var
  a, b, c, total: real;
begin
  write('Введите a, b, c = ');
  readln(a, b, c);
  total := sqrt(abs(a -(sqr((sqrt(sqr(c)+sqrt(a)))/(sqr(a-b))))));
  writeln('z = ', total);
end.