Программисты, помогите, пожалуйста

а.

program lab;

var

a, b, x, y: real;

begin

write('Введите число a: ');

readln(a);

write('Введите число b: ');

readln(b);

x:=0.25*exp(4 * ln(a))-3*sqr(a)*sqr(b)+9*exp(4 * ln(b));

writeln('После вычисления x = ', x);

end.

б.

program lab;

var

z, x, y: real;

begin

write('Введите число z: ');

readln(z);

y:=((z/(2*z-4))-((sqr(z)+4)/(2*sqr(z)-8))-(2/(sqr(z)+2*z)));

writeln('После вычисления z = ', y);

end.