Составить программу в паскале! 1)вычисление значения функции y=7x^2-3x+6,при любом значение x 2)x=12a^2+7a-16,при любом значение a

Var
x,a:real;
Begin
WriteLn('y = 7x^2 -3x +6');
Write('x = ');
ReadLn(x);
WriteLn('y = ',7*x*x -3*x +6);
WriteLn;
WriteLn('x = 12a^2 +7a -16');
Write('a = ');
ReadLn(a);
Write('x = ',12*a*a +7*a *16)
End.