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);