Пожалуйста посчитайте решить пример по информатике, срочно , пример, там где A=и т.д

var A, x:real;

begin

 writeln('Введите x');

 readln(x);

 if x-4 = 0 then

   writeln('Нельзя делить на 0!')

 else begin

   A := ((51*sqrt(x*x*x))/ (x-4));

 writeln('Результат A = ', A);

 end;

end.