{* Задача 426 *}

Unit ZADACH426;
Interface
Implementation
Begin
 writeln('Вычислите значение выражения у=((3+с)/(a*x+4))-2*a;');
End.

Program zadach426;

Uses zadach426.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  y : real;
  x : real;
  c : real;
  a : real;
Begin
  clrscr; {* Очищаем экран *}
  writeln ('vvedite x, a, c');
  readln (x, a, c);
  If a * x+4 = 0 Then
    writeln ('net resheniy')
  Else Begin
    y := ((3 + c) / (a * x+4)) - 2*a;
  writeln ('y=', y : 2:5);
End;
  readln; {* Приостановка программы. Ожидание Enter *}
  End..