Algoritma untuk menampilkan deret angka

Algoritma untuk menampilkan deret angka (0, 2, 5, 10, 26, 37)
Program deretangka;
uses wincrt;
var
     array[1..50]:integer;
     i, n, min, kelompok, temp, tempatnya_min : integer;
begin
  writeln('Program deret angka 0, 2, 5, 10, 26, 37');
  for kelompok := 1 to n do
  begin
       min := x[kelompok];
       for i := kelompok to n do
       begin
             if (x[i] <= min) then
             begin
                   min := x[i];
                   tempatnya_min := i;
             end.
       end.
  temp := x[kelompok];
  x[kelompok] := x[tempatnya_min];
  x[tempatnya_min] := temp;
end.
daftar pustaka
http://blog.rosihanari.net/algoritma-sorting-dan-implementasinya/
diunduh (6 april: 11:22)