program FunctionCalculation;

var
x, y: Real;

begin
// Ввод значения x
Write('Введите значение x: ');
ReadLn(x);

// Вычисление значения функции y = 6x² + 3(x² + 1)²
y := 6 x x + 3 Power(x x + 1, 2);

// Вывод результата
WriteLn('Значение функции y = 6x² + 3(x² + 1)² при x = ', x, ' равно ', y);
end.