Те три цикла, приведённые на скрине на язык Паскаль переводятся так:

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;