подскажите пожалуйста решение образца , его надобно решить в PASCAL ABC

begin

 Writeln('Введите x, y, z:');

 var(x, y, z) := ReadInteger3();

 var a := (3 + Exp(y - 1)) / (1 + x * x * Абс(y - Tan(z)));

 var b := (y - x) ** 2 / 2 + Абс(y - x) ** 3 / 3;

 var c := a * a * Sqrt(Абс(a - b));

 WriteFormat('a = 0, b = 1, c = 2', a, b, c)

end.