program Equation;
varx, y: Integer;
beginwriteln('Enter the value of x: ');readln(x);
y := x*x + 11;
writeln('The value of y is: ', y);end.
program Equation;
var
x, y: Integer;
begin
writeln('Enter the value of x: ');
readln(x);
y := x*x + 11;
writeln('The value of y is: ', y);
end.