{* Коэффициенты данного кубического уравнения по его корням *}

Unit Z_EQUATION23;
Interface
Implementation
Begin
 writeln('Коэффициенты данного кубического уравнения по его корням');
End.

Program z_equation23;

Uses z_equation23.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  X1 : real;
  X2 : real;
  X3 : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите первый корень уравнения');
  readln(X1);
  writeln('Введите второй корень уравнения');
  readln(X2);
  writeln('Введите третий корень уравннения');
  readln(X3);
  writeln; {* Пропускаем одну строку *}
  writeln('1 - коэффициент при x в степени 3');
  writeln( - (X1 + X2 + X3) : 0 : 2, ' коэффициент при x в степени 2');
  writeln((X1 * X2 + X1 * X3 + X2 * X3) : 0 : 2, ' коэффициент при x в степени 1');
  writeln( - (X1 * X2 * X3) : 0 : 2, ' коэффициент при x в степени 0');
  readln; {* Ждем нажатия Enter *}
End.