program FunctionCalculation;
vax, y: Real;
begi// Ввод значения 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.
program FunctionCalculation;
va
x, y: Real;
begi
// Ввод значения
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.