Задача на знакомства в лагере

Перезнакомить всех детей отряда, через одного, если есть пары знакомых. например в отряде 8 детей.... 1 знаком с 4, а 4 с 7. значит надо к первому дознакомить 2, 3, 5, 6, 8. сделать прогу такую(на паскале)тут надо ввести с клавы к-во знакомых пар и к-во детей отряда.... потом знакомые пары...
readln(n, m);
for i:=1 to m do
 begin
 readln(x1, x2);
 if (x[x1]=0) and (x[x2]=0) then
 begin
 inc(k);
 x[x1]:=k;
 x[x2]:=k;
 end;
или как помогите сделать прогу другим методом....
p1:=x[1];
 p2:=0;
 for i:=2 to n do
 begin
 if (p1<x[i]) then p1:=x[i];
 if x[i]=0 then inc(p2);
 end;
 p:=p1+p2;
 if p=1 then writeln('‚ᥠбв㤥вл §Є®¬л')
 else
 begin
 writeln('Ќ*¤® ¤®§**Є®¬Ёвм ',p-1);
 for i:=2 to n do
 if x[i]=0 then writeln('1 ',i)
 else
 if (y[x[i]]=0) and (x[i]<>x[1]) then
 begin
 writeln('1 ',i);
 y[x[i]]:=1;
 end;
 end;
1 ответ

1 знаком с 4
Это еще почему? Где это сказано?