составить программу вычисления значения функции y= 3x в 6 степени - 6x в 2 степени-7, используя оператор ввода данных b с экрана монитора и вывода y на экран

varb: integer;function y(x: integer): real;beginy := exp(6*ln(3*x)) - SQR(6*x) - 7;end;beginreadln(b);writeln(y(b));end.