program Noname9; var num : array[1..10] of integer; i,j: integer; temp : integer; procedure input; begin for i :=1 to 6 do readln(num[i]); end; begin input; for i := 1 to 5 do for j:= 1 to 6 -i do if num[j] > num[j+1] then begin temp:= num[j]; num[j] := num[j+1]; num[j+1] := temp; end; for i := 1 to 6 do begin write(num[i],' '); end; readln(); end.