Ответ:

Объяснение:

program zadacha_1;

var

x,y,a,b,c:real;

function funcx:real;

begin

x:=2*ln(a)-1/(b*c)+(sin(pi*b*c))/(cos(pi*b*c));

end;

function funcy:real;

begin

y:=cos(0.387*a)+sqrt(abs(a+b));

end;

begin

writeln('Введите a');

read(a);

writeln('Введите b');

read(b);

writeln('Введите c');

read(c);

if (b*c*a<>0) and (a>0) then

funcx

else

write('Невозможно вычислить x');

funcy;

writeln('x = ',x);

writeln('y = ',y);

end.