Построить программу для выполнения : y на паскале

Program Zadacha;
Var b, c, x : Integer;
y : Real;
Begin
Read (b, c, x)
y: = 3*x - ((5*b+3) / (7*b-4*c));
Write ('y= ' , y);
End.