program LevelingEquation;
varx: Integer;result: Integer;
beginx := 5; // Assign any value to x
// Calculate the result of the equationresult := 7 x - 3 x + 6;
// Display the resultwriteln('Result of the equation 7x - 3x + 6 where x = ', x, ' is: ', result);end.
program LevelingEquation;
var
x: Integer;
result: Integer;
begin
x := 5; // Assign any value to x
// Calculate the result of the equation
result := 7 x - 3 x + 6;
// Display the result
writeln('Result of the equation 7x - 3x + 6 where x = ', x, ' is: ', result);
end.