Те три цикла, приведённые на скрине на язык Паскаль переводятся так:
for i := N-1 downto 1 do
if A[j+1] < A[j] then begin
c := A[j+1];
A[j+1] := A[j];
A[j] := c
end;
for j := N-1 downto 2 do
if A[j+1] < A[j] then begin
c := A[j+1];
A[j+1] := A[j];
A[j] := c
end;
for i := 1 to N-1 do
for j := N-1 downto i do begin
c := A[j+1];
A[j+1] := A[j];
A[j] := c
end;
