Pagini recente » Cod sursa (job #2251066) | Cod sursa (job #2739323) | Cod sursa (job #582217) | Cod sursa (job #271964) | Cod sursa (job #1612539)
program mire;
var a:array of array of longint;
f,g:text;
n,m,nr,j:longint;
d:array of longint;
viz:array of 0..1;
procedure cit;
var i,j,x,y:longint;
begin
assign(f,'sortaret.in'); reset(f);
assign(g,'sortaret.out'); rewrite(g);
readln(f,n,m);
setlength(a,n+1,n+1);
setlength(d,n+1);
setlength(viz,n+1);
for i:=1 to m do
begin
read(f,x,y);
inc(a[x,0]);
setlength(a[x],a[x,0]+1);
a[x,a[x,0]]:=y;
end;
close(f);
end;
procedure sort(nod:longint);
var i:integer;
begin
viz[nod]:=1;
for i:=1 to a[nod,0] do
if viz[a[nod,i]]=0 then
sort(a[nod,i]);
dec(nr);
d[nr]:=nod;
end;
begin
cit;
nr:=n+1;
for j:=1 to n do
if viz[j]=0 then
sort(j);
for j:=1 to n do
write(g,d[j],' ');
close(g);
end.