Вычислить значение выражения. написать блок схему и на ! y=8x+5(x^2-1), если x= a^2+cos(a)

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.

Объяснение: Если есть вопросы, то пишите мне в лс.