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.
Так?