{* Задача 392 *}

Unit ZADACH392;
Interface
Implementation
Begin
 writeln('Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач. до Хкон. с шагом dX.');
End.

Program zadach392;

Uses zadach392.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a  : real;
  b  : real;
  c  : real;
  x  : real;
  Xn : real;
  Xk : real;
  Dx : real;
  F  : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln ('VVedite a');
  readln (a);
  writeln ('VVedite b');
  readln (b);
  writeln ('VVedite c');
  readln (c);
  writeln ('VVedite Xn');
  readln (Xn);
  writeln ('VVedite Xk');
  readln (Xk);
  writeln ('VVedite Dx');
  readln (Dx);
  x := Xn;
  Repeat
    If (c0) And (b = 0) And (c0) And (x0) Then
      F := (x + a) / (x + c)
    Else F := x / c;
      writeln (x : 5:2, F : 8:4);
  x := x + Dx;
  Until x > Xk;
  readkey; {* Ждем нажатия любой клавиши *}
End.