Предположим, что наш проводник абориген и говорит правду. Тогда он сказал правду, что тот человек назвался аборигеном, но он мог быть как аборигеном так и пришельцем.
Пусть наш проводник пришелец, который врет. Тогда другой житель острова назвался пришельцем, а проводник сказал, что тот житель абориген. А этот случай не возможен, потому что если другой житель пришелец, он скажет что он абориген, а наш проводник обманет и должен был сказать, что тот пришелец, то же самое будет если другой житель острова абориген.
ответ: наш проводник абориген.
var r,g,b,k:integer;
begin
k:=0;
for r:=0 to 6 do
for g:=0 to 6 do
for b:=0 to 6 do
if r>g+b then k:=k+1;
writeln('k = ',k);
end.
Результат:
k = 56