program SolveEquation;
varx, y: real;
beginwrite('Enter the value of x: ');readln(x);
y := sin(x) + 6x + xx*x;
writeln('The value of y is: ', y);end.
program SolveEquation;
var
x, y: real;
begin
write('Enter the value of x: ');
readln(x);
y := sin(x) + 6x + xx*x;
writeln('The value of y is: ', y);
end.