Требуется решение через паскаль,

program Calc1;

uses

 Math;

var

 x, y, z, A, B: Real;

begin

 Write ('Введите X:');

 ReadLn (x);

 Write ('Введите Y:');

 ReadLn (y);

 Write ('Введите Z:');

 ReadLn (z);

 A := Power (2, (Power (y, x))) + Power (Power (3, x), y);

 B := (Abs (x - y) * (1 + Power (Sin (z), 2) / (x + y) )) / (Exp (Abs (x - y)) + x / 2);

 WriteLn ('A = ', A :15 : 10);

 WriteLn ('B = ', B :15 : 10);

 ReadLn;

end.