program Project2;

{$APPTYPE CONSOLE}

var a:array[1..100000] of integer;
    i,j,n,k,m,x,y:integer;
begin
assign(Input,'penalty.in');
reset(Input);
readln(n,k);
for i:=1 to k do begin
  readln(x,y);
  a[x,y]:=1;
  //a[y,x]:=1;
end;
readln(m);
close(Input);

for i:=1 to n do a[i,i]:=-1;

for k:=1 to n do
  for i:=1 to n do
    for j:=1 to n do
      if



assign(Output,'penalty.out');
rewrite(Output);
close(Output);
end.