Program example;
var a,x,y: Extended;
Begin
write('Enter a: ');
readln(a);
x:=sqr(a)+cos(a);
y:=8*x+5*(exp(ln(x)*(2-1)));
writeln('y = ', y:0:3);
End.
Объяснение: Если есть вопросы, то пишите мне в лс.
