program v4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function f(x: real): real;
begin
  f := x * x * x - 6 * x * x + 11 * x - 6;
end;
 
var
  a, b, x, eps: real;
  fa, fb, fx: real;
  P1, P2: TDateTime;
  H1, M1, S1, Ms1, H2, M2, S2, Ms2: Word;
 
begin
  Write('Vvedite levuyu granitsu intervala a: '); ReadLn(a);
  Write('Vvedite pravuyu granitsu intervala b: '); ReadLn(b);
  eps := 0.001;
 
  P1 := Now;
  DecodeTime(P1, H1, M1, S1, Ms1);
 
  fa := f(a);
  fb := f(b);
 
  if fa * fb >= 0 then
    WriteLn('Na intervale net kornya ili ih chetnoe kolichestvo.')
  else
  begin
    repeat
      x := a - fa * (b - a) / (fb - fa);
      fx := f(x);
 
      if fa * fx <= 0 then
      begin
        b := x;
        fb := fx;
      end
      else
      begin
        a := x;
        fa := fx;
      end;
    until (abs(fx) < eps);
 
    WriteLn('Koren uravneniya: x = ', x:0:6);
    WriteLn('Znachenie funktsii v korne: f(x) = ', fx:0:8);
  end;
 
  P2 := Now;
  DecodeTime(P2, H2, M2, S2, Ms2);
 
  Writeln('Vremya nachala: ', H1, ':', M1, ':', S1, ':', Ms1);
  Writeln('Vremya okonchaniya: ', H2, ':', M2, ':', S2, ':', Ms2);
  ReadLn;
end.

cHJvZ3JhbSB2NDsKCnskQVBQVFlQRSBDT05TT0xFfQoKdXNlcwogIFN5c1V0aWxzOwoKZnVuY3Rpb24gZih4OiByZWFsKTogcmVhbDsKYmVnaW4KICBmIDo9IHggKiB4ICogeCAtIDYgKiB4ICogeCArIDExICogeCAtIDY7CmVuZDsKCnZhcgogIGEsIGIsIHgsIGVwczogcmVhbDsKICBmYSwgZmIsIGZ4OiByZWFsOwogIFAxLCBQMjogVERhdGVUaW1lOwogIEgxLCBNMSwgUzEsIE1zMSwgSDIsIE0yLCBTMiwgTXMyOiBXb3JkOwoKYmVnaW4KICBXcml0ZSgnVnZlZGl0ZSBsZXZ1eXUgZ3Jhbml0c3UgaW50ZXJ2YWxhIGE6ICcpOyBSZWFkTG4oYSk7CiAgV3JpdGUoJ1Z2ZWRpdGUgcHJhdnV5dSBncmFuaXRzdSBpbnRlcnZhbGEgYjogJyk7IFJlYWRMbihiKTsKICBlcHMgOj0gMC4wMDE7CgogIFAxIDo9IE5vdzsKICBEZWNvZGVUaW1lKFAxLCBIMSwgTTEsIFMxLCBNczEpOwoKICBmYSA6PSBmKGEpOwogIGZiIDo9IGYoYik7CgogIGlmIGZhICogZmIgPj0gMCB0aGVuCiAgICBXcml0ZUxuKCdOYSBpbnRlcnZhbGUgbmV0IGtvcm55YSBpbGkgaWggY2hldG5vZSBrb2xpY2hlc3R2by4nKQogIGVsc2UKICBiZWdpbgogICAgcmVwZWF0CiAgICAgIHggOj0gYSAtIGZhICogKGIgLSBhKSAvIChmYiAtIGZhKTsKICAgICAgZnggOj0gZih4KTsKCiAgICAgIGlmIGZhICogZnggPD0gMCB0aGVuCiAgICAgIGJlZ2luCiAgICAgICAgYiA6PSB4OwogICAgICAgIGZiIDo9IGZ4OwogICAgICBlbmQKICAgICAgZWxzZQogICAgICBiZWdpbgogICAgICAgIGEgOj0geDsKICAgICAgICBmYSA6PSBmeDsKICAgICAgZW5kOwogICAgdW50aWwgKGFicyhmeCkgPCBlcHMpOwoKICAgIFdyaXRlTG4oJ0tvcmVuIHVyYXZuZW5peWE6IHggPSAnLCB4OjA6Nik7CiAgICBXcml0ZUxuKCdabmFjaGVuaWUgZnVua3RzaWkgdiBrb3JuZTogZih4KSA9ICcsIGZ4OjA6OCk7CiAgZW5kOwoKICBQMiA6PSBOb3c7CiAgRGVjb2RlVGltZShQMiwgSDIsIE0yLCBTMiwgTXMyKTsKCiAgV3JpdGVsbignVnJlbXlhIG5hY2hhbGE6ICcsIEgxLCAnOicsIE0xLCAnOicsIFMxLCAnOicsIE1zMSk7CiAgV3JpdGVsbignVnJlbXlhIG9rb25jaGFuaXlhOiAnLCBIMiwgJzonLCBNMiwgJzonLCBTMiwgJzonLCBNczIpOwogIFJlYWRMbjsKZW5kLg==

NyAyMQoxIDIgNTQ3MTUyCjEgMyA1MDkxNTcKMSA0IDUzOTI4MgoxIDUgNTQxNjQ1ICAgICAgICAgCjEgNiA0NTg0MzMKMSA3IDM4NTE3M+KAqAoyIDMgMTMxNTI4CjIgNCA5MjczNQoyIDUgMTUwNTExCjIgNiA5NDQ0MAoyIDcgMTk0NTQyCjMgNCAyMTY2MDAKMyA1IDI3MjQwMQozIDYgMTU3MTc2CjMgNyAxMjQwNzcKNCA1IDU3Nzg1CjQgNiA5NzMyMwo0IDcgMjQyMjMyCjUgNiAxMzY2NjMKNSA3IDI4Mzg2Mgo2IDcgMTQ3NDI2

7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426