b'\n_START_ARTICLE_\n\xc4\xaeterpimo rikiavimo algoritmas\n_START_SECTION_\nPavyzd\xc5\xbeiai\n_START_PARAGRAPH_\nPavyzdys Pascal kalba:_NEWLINE_procedure Iterpimas (var a:array of integer; N:integer);var i, j, v:integer;begin_NEWLINE_  for i:=2 to N do_NEWLINE_  begin_NEWLINE_    v:=a[i]; j:=i;_NEWLINE_    while a[j-1]>v do_NEWLINE_      begin_NEWLINE_        a[j]:=a[j-1];_NEWLINE_        j:=j-1;_NEWLINE_      end;_NEWLINE_    a[j]:=v;_NEWLINE_  end;end;'