Необходимо решить представленные задачи на языке Pascal:

За ваши деньги — любой каприз!
А нет денег — не чего и капризничать…

Не забудь про ОДЗ, что не ясно пиши в почту договоримся

program mathem;

uses
crt;

var
x, y, a, b : Double;
res : Double;
left_part, right_part : Double;

{ Функция степени }
function power(num, pow : Double) : Double;
begin
if (num <> 0) then
power := exp(pow * ln(abs(num)))
else
power := 0;
end {power};

{ Функция логарифма по основанию }
function log(num, osn : Double) : Double;
begin
log := ln(abs(num)) / ln(abs(osn));
end {log};

begin
clrscr;

{1 пример}
write('Введите x: ');
read(x);

left_part := sqrt(x*x + 2*x);
left_part := left_part / 0.625 * x;
left_part := ln(ln(left_part));
right_part := power(x + 1, (1/3));
right_part := abs(cos(x)) / right_part;
res := left_part + right_part;

writeln('1 пример = ', res:4:5);
writeln;

{2 пример}
write('Введите x: ');
read(x);
write('Введите y: ');
read(y);
write('Введите a: ');
read(a);
write('Введите b: ');
read(b);

left_part := power(2, sin(x));
right_part := abs(a*x + b*y);
right_part := right_part / sqrt(x*x + y*y);
res := left_part + right_part;

writeln('2 пример = ', res:4:5);
writeln;

{3 пример}
write('Введите x: ');
read(x);
write('Введите y: ');
read(y);

left_part := ln(x*x + y*y);
left_part := (x - y*y) / left_part;
right_part := power(x*y, 1/3);
res := arctan(left_part + right_part);

writeln('3 пример = ', res:4:5);
writeln;

{4 пример}
write('Введите x: ');
read(x);

left_part := log(cos(x), sin(x));
right_part := power(1 - x*x, 1/3);
right_part := 1 / right_part;
res := left_part + right_part;

writeln('4 пример = ', res:4:5);
writeln;

{5 пример}
write('Введите x: ');
read(x);

left_part := sqrt(cos(PI/x));
left_part := left_part / (1 - PI * x*x);
right_part := 1 - sin(x) * sin(x);
right_part := log(right_part, cos(x));
res := left_part + right_part;

writeln('5 пример = ', res:4:5);
writeln;

{6 пример}
write('Введите x: ');
read(x);
write('Введите y: ');
read(y);

left_part := (x*y + exp(x));
left_part := left_part * left_part;
left_part := sin(left_part);
left_part := left_part * left_part;
right_part := power(1 - x*x, 1/3);
right_part := exp(2*x) * right_part;
res := left_part + right_part;

writeln('6 пример = ', res:4:5);
writeln;

{7 пример}
write('Введите x: ');
read(x);

left_part := power(sin(0.7 * x), cos(5.1 * x));
right_part := exp(2*x) / 2*x;
res := left_part + right_part;

writeln('7 пример = ', res:4:5);
writeln;

{8 пример}
write('Введите x: ');
read(x);

left_part := exp((PI * x) - 1);
left_part := 4.03 * cos(left_part);
right_part := ln(PI * x);
right_part := right_part * right_part;
res := left_part + right_part;

writeln('8 пример = ', res:4:5);
writeln;
end.