Nhập x. Tính y=(x+e^x) /(x-3) Môn Tin 11 Giúp cần gấp

Program bai_tap;

Uses crt;

Var x,y: real;

Begin 

Writeln (‘Nhap x=’); 

Readln (x);

y:= (x+ exp(x))/(x-3); 

Writeln (‘y=’, y:8:2);

Readln 

End.