Red de conocimiento informático - Aprendizaje de programación - Problema de los cuatro colores de Pascal, colorear el mapa

Problema de los cuatro colores de Pascal, colorear el mapa

Obtuve AC en http://218.4.165.132/oj/ShowProblem?problemid=d110

Aquí está el programa:

var a:array do

si b hace

b comienza

readln(n);

ans:=0; n hacer

comenzar

readln(x,y);

inc(a); =y;

inc(a[x,a]:=y;

inc(a);

a[y,a] :=x ;

fin;

trabajo(1);

writeln(ans);