wrong answer
var n,k,i,j,jj,min:longint;
f:array[0..99,0..99]of longint;
t:array[1..5]of longint;
d,a:array[0..99]of longint;
b:array[1..99]of boolean;
function mini(a,b:longint):longint;begin if a<b then exit(a)else exit(b);end;
begin
repeat
readln(n,k);
for i:=1 to n do read(t[i]);readln;
fillchar(f,sizeof(f),$7f);
fillchar(b,sizeof(b),true);
for i:=1 to n do
begin
j:=0;
while not eoln do
begin
j:=j+1;
read(a[j]);
for jj:=1 to j-1 do
begin
f[a[jj],a[j]]:=mini(f[a[jj],a[j]],t[i]*abs(a[jj]-a[j]));
f[a[j],a[jj]]:=f[a[jj],a[j]];
end;
end;
readln;
end;
d:=f[0];
repeat
min:=1;
for i:=2 to 99 do
if d[i]<d[min] then min:=i;
b[min]:=false;
if d[min]=2139062143 then begin writeln(‘INPOSSIBLE‘);break;end;
if min=k then begin writeln(d[min]);break;end;
for i:=1 to 99 do
if(b[i])and(f[min,i]<maxlongint)then
if(f[min,i]+d[min]+60<d[i])then
d[i]:=d[min]+f[min,i]+60;
d[min]:=maxlongint;
until false;
until eof;
end.