{$APPTYPE CONSOLE}

uses
   SysUtils,
   Math;

procedure SqRoot(a, b, c: Real;
        var x1, x2: Real;
        var ok: Boolean);

   var
     d: Real;
   begin
     ok := false;
     d := b*b - 4*a*c;
     if (d > 0) then
       begin
       x1 := (-b+sqrt(d)) / (2*a);
       x2 := (-b-sqrt(d)) / (2*a);
       writeln('x1 = ', x1);
       writeln('x2 = ', x2);
       ok := true;
       end
     else
       if (d = 0) then
         begin
         x1 := -b / (2*a);
         writeln('x = ', x1);
         ok := true;
         end
       else
         ok := false;
   end;

var
   a0, b0, c0, k1, k2: Real;
   rez: Boolean;
begin
   read(a0, b0, c0);
   SqRoot(a0, b0, c0, k1, k2, rez);
   if (rez = false) then
     writeln('RESHENIYA NET!');
   readln; // эта строка, наверное, просто так здесь...
   readln; // т.к. только эта строка срабатывает
end.

program Project2;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    f1 : text;
    st : string;
    i, j: Integer;
begin
    assign(f1, '111.txt'); {связать с файлом 111.txt  файловую переменную f1  }
    reset (f1); { открыть файл для чтения }
    readln (f1, st);    {читаем строку из файла f1 }
    i := StrToInt(Copy(st, 1, Pos(',', st)-1)); { первое число }
    j := StrToInt(Copy(st, Pos(',', st)+1, length (st))); { второе }
    writeln(i, ' + ', j, ' = ', i+j); { рисуем суму }
    close (f1); { закрыть файл  для чтения}

    assign(f1, '222.txt'); {связать с файлом 222.txt  файловую переменную f1  }
    rewrite  (f1); { создать новый файл  с именем 222.txt }
    writeln ( f1, i+j); { записать суму в файл}
    close (f1);    { закрыть файл для записи }
    Sleep(1000);
end.