Поскольку Pascal не делает различий в регистре символов и условие видно неполностью, то считается, что a=A и b=B. Если требовалось иное, напишите об этом.
var a,b,x,y: double;
begin
writeln('Введите a');
readln(A);
writeln('Введите b');
readln(b);
writeln('Введите x');
readln(x);
y:=1/3*
(sqrt(sin(a*x)+cos(b*x)))*
(sqrt(exp(a*x*x+b*x+1.1)));
writeln('ответ: ',y);
end.
Поскольку Pascal не делает различий в регистре символов и условие видно неполностью, то считается, что a=A и b=B. Если требовалось иное, напишите об этом.
var a,b,x,y: double;
begin
writeln('Введите a');
readln(A);
writeln('Введите b');
readln(b);
writeln('Введите x');
readln(x);
y:=1/3*
(sqrt(sin(a*x)+cos(b*x)))*
(sqrt(exp(a*x*x+b*x+1.1)));
writeln('ответ: ',y);
end.