Рассчитать производную уравнения y=3x*x — Pascal(Паскаль)

program laborat4;
const a=3;
      n=2;
Var
      x, y:real;
begin
          writeln('Введите значение x.');
          readln(x);
          y:=a*(n*exp((n-1)*ln(x)));
          writeln('y=', y:2:0);
   readln;
   writeln;
end.