var
x,y,z,a,b:real;
begin
write ('X = ');readln(x);
write ('Y = ');readln(y);
write ('Z = ');readln(z);
a:=(sqrt(x+y+z)-exp(1/3*ln(x)))/(1+abs(x*x*x-5));
b:=sqr(cos(1+arctan(1/z)));
writeln ('A = ',a:0:4);
writeln ('B = ',b:0:4);
readln;
end.
Только во 2 выражении будет в радианах все считаться