let var i:=0 var j:=0 var tmp:=0 type arrint = array of int var a:arrint:= new arrint[10] of 10 in for i:=0 to 9 do for j:=i+1 to 9 do when (a[i]