program MathExpression;
varx: Real;result: Real;
beginwriteln('Enter the value of x: ');readln(x);
result := 3sin(sqrt(3)) + 0.35x - 3.8;
writeln('The result of the mathematical expression is: ', result);
end.
program MathExpression;
var
x: Real;
result: Real;
begin
writeln('Enter the value of x: ');
readln(x);
result := 3sin(sqrt(3)) + 0.35x - 3.8;
writeln('The result of the mathematical expression is: ', result);
end.