ну можно эту последовательность представить как одномерный массив, тогда можно просто провести сортировку методом пузырька program sortirovka;
const
n=k; {вместо k вводится число, равное количеству чисел)
var
a:array[1..n] of real;
i, j, k: integer;
r: real;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
for j:=1 to to n-1 do
if a[j]>a[j+1] then
begin
r:=a[j+1];
a[j+1]:=a[j];
a[j]:=r;
end;
for k:=1 to n do
write(a[k],' ');
end.
.
