Помогите написать код на pascal

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