program HomeWork;
var x,y,z:real;
begin
write('Введите х (кроме 0): '); readln(x);
write('Введите y (кроме 0): '); readln(y);
if (x = 0) or (y = 0) then writeln('Выражение не имеет смысла')
else
z := sqrt(3*sqr(y)-7)/sin(y)+abs(exp(3*ln(x)))+5*exp(x);
writeln('Результат вычислений z=', z:5:2);
end;
end.
program HomeWork;
var x,y,z:real;
begin
write('Введите х (кроме 0): '); readln(x);
write('Введите y (кроме 0): '); readln(y);
if (x = 0) or (y = 0) then writeln('Выражение не имеет смысла')
else
begin
z := sqrt(3*sqr(y)-7)/sin(y)+abs(exp(3*ln(x)))+5*exp(x);
writeln('Результат вычислений z=', z:5:2);
end;
end.