رهوووفة

أرجو مساعدتي في إكمال حل البرنامج التالي وهو بلغة باسكال لذا أرجو من الجميع المساعدة : Program myprogram; uses wincrt; label x1,x2,x3; const n=10; type index =1..n; var i,j,k,w :index; list :array [index]of integer; key :integer; procedure select_sort; var j,k…