program party;
var
 h:array [1..1000,1..1000] of longint;
 n,m,x,max:longint;
 f1,f2:text;

procedure init;
var i,j,k,u:longint;
begin
 assign(f1,'party.in'); reset(f1);
 assign(f2,'party.out'); rewrite(f2);
 readln(f1,n,m,x);
 for i:=1 to n do
  for j:=1 to n do
   h[i,j]:=maxlongint;
 for u:=1 to n do begin
  read(f1,i,j,k);
  h[i,j]:=k;
 end;
 close(f1);
 max:=-1;
end;

procedure play;
var
 i,j,k:longint;
begin
 for k:=1 to n do
  for i:=1 to n do
   for j:=1 to n do
    if (h[i,k]<>maxlongint)and(h[k,j]<>maxlongint) then
     if (h[i,k]+h[k,j]<h[i,j]) then
      h[i,j]:=h[i,k]+h[k,j];
end;


procedure search;
var i,j:longint;
begin
 for i:=1 to n do
  if (h[i,x]<>maxlongint)and(h[x,i]<>maxlongint) then
   if h[i,x]+h[x,i]>max then max:=h[i,x]+h[x,i];
 writeln(f2,max);
 close(f2);
end;

begin
 init;
 play;
 search;
end.