알고리즘 삽입; Var    i,k,x: 정수;   T [1..n] : 정수; 시작   읽기;   n:=n+1;   n에서 k까지 i에 대해 not-1   faire     T[i+1] := T[i];   finfaire       T[k] := x; End

Procedure:

< / div>

프로 시저 삽입 (L : 목록, k : 1..lmax, x : 요소) < / span>< / div> var i,n:1..lmax; 시작   n : = L.길이;   L. 길이 : = n + < / span>1;   n에서 k까지 i에 대해 not-1   faire     L.T[i+1] := L.T[i];   finfaire   L.T[i] := x; 끝