Question

дано целое число x, найти значение выражения y=12+3x/(x-4)^3 паскаль

ребята пожалуйста помогите с решением, буду очень признателен)​

Answer 1

uses Math;

var x : integer;

y : real;

begin

readln(x);

y := 12 + 3*x/power(x-4,3);

writeln(y:5:2);

end.