A)

Program znanijacom;

var a,b:real;

begin

WriteLn ('Введите X');

Read (a);

b:=(exp(8*Ln(a)));

WriteLn ('Y= ',b);

end.

B)

Program znanijacom;

var a,b,c:real;

begin

WriteLn ('Введите x и e');

Read (a,c);

b:=(exp((a-2)*Ln(c))*(a-5));

WriteLn ('Y= ',b);

end.

C)

Program znanijacom;

var a,b:real;

begin

WriteLn ('Введите x');

Read (a);

b:=sin(a-5);

WriteLn ('Y= ',b);

end.

Так?