Паскаль написать программу

Question

Паскаль написать программу

---

Answer 1

Var x:real;
Begin
WriteLn('y = (4 +3x) / (3 +6x)');
Write('x = ');Read(x);
if 1+2*x = 0 then Write('Ошибка: на ноль делить нельзя!')
else Write('y = ',(4+3*x)/(3+6*x))
End.