Exercicio feito em Dev para pascal

program Untitled;
Uses crt;
Var
 M : array[1..3]of integer;
 N : array[1..3]of integer;
 Z : array[1..6]of integer;
 aux,na,no,i,j,r:integer;
begin
  Clrscr;
  for i:= 1 to 3 do
  begin
    na:=random(6)+1;
    M[i]:=na;
    write(' ',M[i],' ');
  end;
   writeln;
  for j:= 1 to 3 do
  begin
    no:=random(7)+3;
    N[j]:=no;
    write(' ',N[j],' ');
  end;
 writeln;
 for M[i]:=M[i]  to M[i]-1 do
 for N[J]:=n[i]+1  to 6 do
  begin
   if Z[i] > Z[j] then
   begin
    aux:=Z[i];
    Z[i]:=Z[J];
    Z[J]:=aux;
   end;
 end;
for r:=1 to 6 do
writeln(Z[r]);

  readkey;
end.