Для заданных x, y, z вычислить а, b - PascalABC.NET (247593)

var x, y, z, a, b: real;
begin
  write('x, y, z = '); readln(x, y, z);
  a := (1 + cos(y - 2)) / (sqr(sqr(x)) / (2 + sqr(sin(z))));
  b := 1 + abs(y - x) + sqr(y - x) / 2 + power(abs(y - x), 3) / 3;
  writeln('a = ', a, '; b = ', b);
end.