Помогите решить программу на языке паскаль y=3x²+2a

var  

   x,a,y:real;

begin

   write('Введите x: ');

   readln(x);

   write('Введите a: ');

   readln(a);

   y:=3*x*x+2*a;

   writeln(y);

end.