//@author JolyJDIA
program task3;

var
  reader : text;
  a, b, c : real;

//Создает новый файл(если его не существует)
function createNewFileIfNotExist(name : string; defaultStr : string) : boolean;
  begin
     if FileExists(name) = false then
        begin
          writeln('Файл '+name+' не найден и был создан');
          WriteAllText(name, defaultStr);
          createNewFileIfNotExist := true;
        end
     else
       createNewFileIfNotExist := false;
  end;

begin
  createNewFileIfNotExist('kvur.txt', '10 25 15');
  assign(reader, 'kvur.txt');
  reset(reader);//открываем streamInput
  readln(reader, a, b, c);//читаем файл

  //Вычисляем корни
  var d := b*b-4*a*c;
  var sqrt := sqrt(d);
  var y := 2*a;
  c := (-b-sqrt)/y;//x1
  a := (-b+sqrt)/y;//x2

  try
    var output := c + ' ' + a;
    if (createNewFileIfNotExist('korni.txt', output) = false) then
       begin
          assign(reader, 'korni.txt');
          //что-то намудрил)
          rewrite(reader);//перезаписываем
          write('x1 = '+c+' x2 = ' +a);
          write(reader, output);
       end;
  finally//безопасно закрываем ресурс
    reader.Close;
  end;
end.