ПРОГРАММИСТЫ ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ ПЛИИИЗ последнее задание
​

var

 x, a, b, y, z: real;

begin

 x := 2.5;

 a := 8.7;

 b := 1.8;

 y := (Exp(x + 3.1) + 2) / (x + 6.1);

 z := 2 * y + Tan(b) + 3;

 z := (Exp((1 / 3) * Ln(a)) + z) / z;

 Writeln('y = ', y, ' z = ', z)

end.

y = 31.6774892355991 z = 1.03313601798708