Программа на языке Паскаль:

program QuadraticEquation;
var
x, y: integer;
begin
writeln('Введите значение x: ');
readln(x);
y := 2 * x * x + 4;
writeln('Решение уравнения Y = 2x^2 + 4 при x = ', x, ' равно Y = ', y);
end.