Даны вещественные x, y, z. Вычислить a, b, если
А где тут эти a, b ?
1 столбик А второй столбик В
А... "догадайся, мол, сама"
begin
var (x,y,z):=ReadReal3;
var a:=(3+Exp(y-1))/(1+x*x*Abs(Tan(z)));
var b:=1+Abs(y-x)+Abs(y-z)**3/3;
Println(a,b)
end.