Помогите пожалуйста написать программу (с помощью Паскаля) по этому примеру y=x^2+6x/3-x ( y=(x*x+6*x)/(3-x) )

Сасибо

Спасибо

Var x: integer;    y: real;BeginWriteln ('Введите x: ');Read(x);y:=exp(ln(x)*2)+6*x/(3-x);Writeln(y)End.