1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

while not ((a<b) and (b<c) and (c<d) and (d<e) and (e<f)) do begin
 if a>b then begin
  v := a;
  a := b;
  b := v;
 end;
 if b>c then begin
  v := b;
  b := c;
  c := v;
 end; 
 if c>d then begin
  v := c;
  c := d;
  d := v;
 end; 
 if d>e then begin
  v := d;
  d := e;
  e := v;
 end;
 if e>f then begin
  v := e;
  e := f;
  f := v;
 end;
end;