program tempe;
var
temp:array[0..6] of integer;
i,x,aux:integer;
begin
for i:=0 to 6 do
begin
writeln('');
write('Escribe un nro entero: ');
readln(temp[i]);
end;
for i:=0 to 5 do
begin
if(temp[i]>temp[i+1]) then
begin
for x:=0 to 5 do
begin
if(temp[x]>temp[x+1]) then
begin
aux := temp[x];
temp[x] := temp[x+1];
temp[x+1] := aux;
end;
end;
end;
end;
for i:=0 to 6 do
begin
writeln(temp[i]);
end;
end.