а.
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.