{Programm, mis sorteerib arvujada mullsorteerimise algoritmi j„rgi}
program MullSort;
uses crt;
const arve=1000
type massiiv = array[1..arve] of integer;

procedure Vaheta(var a,b: integer);
var c: integer;
begin
     c:=a;
     a:=b;
     b:=c;
end;

var a:massiiv;
    i, j, pos, jarg: integer;
    veel: boolean;
{a - arvude massiiv, mida sorteeritakse
jarg - kui palju arve on l“pus paigas
veel - kas tehti veel vahetusi
pos - v“rreldakse seda ja j„rgmist arvu}
begin

{sorteerimine}
   jarg:=1;
   veel:=true;
   while (jarg<arve) and Veel do
   begin
      veel:= false;
       for Pos:=1 to arve-jarg do
       begin
          if a[pos] > a[pos+1] then
          begin
             veel:=true;
             vaheta(a[pos],a[pos+1]);
          end;
          end;
          inc(jarg);
   end;

end.