program grafproba; uses crt,graflist; var g:csucsl; i,j,h,k,sv:integer; begin clrscr; ures(g);h:=0; write('Hany csucs van? ');readln(n); for i:=1 to n do begin write('Hany el indul ki a(z) ',i,'. csucsbol?');readln(sv); for k:=1 to sv do begin write(i,'. csucsnak kerem a ',k,' .szomszedjat');readln(j); ujel(g,i,j,h); end; end; clrscr; for i:=1 to n do begin sv:=g[i].db; j:=1; if sv<>0 then write(i,' . szomszedjai: '); while sv>=j do begin write(g[i].szom[j].csucs,' '); j:=j+1; end; if sv<>0 then readln; end; readln; end.