Приведем пример кода на Pascal:

program QuadraticEquation;
var
x, y: integer;
begin
writeln('Введите значение x:');
readln(x);
y := x * x + 1;
writeln('Значение y = ', y);
end.

Этот код решает квадратное уравнение y = x*x + 1, где x - вводимое пользователем число, а y - результат вычисления.