{* Задача 329 *}

Unit ZADACH329;
Interface
Implementation
Begin
 writeln('

Даны числа a, b и c (a≠0). Найти вещественные корни уравнения ax⁴+bx²+c=0. Если корней нет, то сообщить об этом.

');
End.

Program zadach329;

Uses zadach329.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a  : real;
  b  : real;
  c  : real;
  x  : real;
  x1 : real;
  x2 : real;
  d  : real;
Begin
  writeln('vvedite a, b, c');
  readln(a, b, c);
  d := b * b - 4 * a * c;
  If d0 Then
    writeln ('x1=', sqrt(x2) : 5 : 2, 'x2=', - sqrt(x2) : 5 : 2);
End;
  readln; {* Ждем нажатия Enter *}
  End...