{* Задача 394 *}

Unit ZADACH394;
Interface
Implementation
Begin
 writeln('Вычислить значение выражения: y = (a-2)/(3+х) + с; ');
End.

Program zadach394;

Uses zadach394.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  x : real;
  c : real;
  y : real;
Begin
  clrscr; {* Очищаем экран *}
  write ( ‘vvedite a, a = ’ );
  readln (a);
  write ( ‘vvedite x, x = ’ );
  readln (x);
  write ( ‘vvedite c, c = ’ );
  readln (c);
  If (3 + x=0) Then
    writeln ( ‘na nol’ delit’ nel’zya’ )
  Else y := (a - 2) / (3 + x) + c;
    writeln ( ‘y = ’, y : 2:2);
  readln
End.