Код для паскаль

Question

помогите написать код для паскаль под номером 8
Вот пример для выполнения:
Program Fun ; Const A = 2; B = 0.5; C = 0.8; var X : integer; 1 // переменная X целого типа Y : real; , // переменная Y вещественного типа Begin writeln( ' Введите Х ' ); {процедура вывода текста} read( X ); // введите значение переменной X Y := A*EXP(C*X)  C*cos(B*X) +1; writeln( ' X= ' , X :3, ' Y= ' , Y:8:3); // вывод значений X и Y End.

kseniia_rait_18 · Accepted Answer

var a, b, x, y: real;
begin
    write('a b x: ');
    readln(a, b, x);
    y := a*a/(x+2)*exp(-b*x*x)+ln(a+b*x);
    writeln('y(x) = ', y)
end.
{ это если на экспоненту надо умножать, а не делить! }