Поделитесь своими знаниями, ответьте на вопрос:
Найдите и исправьте ошибку program AGA; var k, m, s, t, u, n, a, v, i:integer; var G:array [1..n, 1..n] of integer; B:array [1..n] of integer; begin readln (n); for i:=1 to n do begin for j:=1 to n do begin readln (G[i, j]); end; end; B[1]:=1; for k:=2 to n do B[k]:=0; k:=1; m:=0; begin while (k