clrscr;
write('Zadaj pocet prvkov: ');
readln(size);
for x := 1 to size do
begin
write('Zadaj prvok ',x,': ');
readln(pole[x]);
end;
repeat
swapped := false;
for x := 1 to size - 1 do
begin
temp := pole[x];
if(pole[x + 1] < temp) then
begin
pole[x] := pole[x + 1];
pole[x + 1] := temp;
swapped := true;
end;
end;
until swapped <> true;
for x := 1 to size do
write(pole[x]:5:2);
readln;