{* Задача 336 *}

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

Program zion;

Uses zadach336.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  y : real;
  a : real;
  x : real;
  b : real;
Begin
  writeln('vvedite znacheniya');
  readln(a, x, b);
  If (2 + a) = 0 Then
    writeln('nekorektie dannie')
  Else Begin
    y := (a * x + b / (2 + a));
  writeln('otvet=', y : 6 : 2);
  readln
End;

  End...