w$%, viz%(), cor%()) DECLARE FUNCTION FOR i = 0 TO n - 1 r(i, m, viz(), cor())  END FUNCTION FUNCTIr (p, m, viz(), cor()) , viz(), cor()) THEN PRINT "Pais"; i i PRINT 1 FOR i = 1 TO = 0 THEN  END IF NEX FUNCTION fco or% (p%, m%, FOR j = 1 T viz(i, j) = CASE : PRINT "Ver FOR i = 1 TO IF fcolor PRINT INPUT "N paises  vizinho NEXT   EXIT FO PRINT " NEXT  - 1 viz(p, ipint viz(), ())  CLo de:", n -   1 T corigit; "  THE ELScor(0) = IF  recx \ i = ) =  SEL lor (p, m, cflag = 0r = pais ncoEND corO m "; ECT DECLARE l c ar% (p%, m rec % ?%! DEFINT A-Z"S"EP 8.5 - Teorema Das 4 Cores" PRINT #$n"Numere seusde 0 a"; %1 DO& o maxim#s $m LOOP UNTIL m < n DIM(%1,'@),((%1) @: -1: CLS&; ":"& O"D)e um menor queA" ou d)e"; i*para terminar"INPUT ">", vIF v < i+N v,ER& Ok"-. n z = a /z x =0oB ((11. x MOD 102110,E-i3z T"S*:A&4C CASE((i) 1de" 2:Amarelo" 3melho" 4:Azul",E:X"& END4CSYSTEM5 678, ?! 9 = -m&/) > IF(()3c+N 9: T fco6= 9ON a 4 7m, iRIF 25+N 20 a;iON0o<:  p FOR c2 =((p) +'O 4& (i, 82B< = i =;c2>IF& NEXTreco;< * 10 +=r >FUNCTION5