parada dos 6 numeros

Program Parada_trampo;

{$APPTYPE CONSOLE}



   var
   n1,n2,n3,N4,N5,N6, nm,nn : integer;
   media: real;
 Begin
  writeln('n1');
  readln  (n1);
  writeln('n2');
  readln (n2);
  writeln('n3');
  readln (n3);
  writeln('n4');
  readln  (n4);
  writeln('n5');
  readln (n5);
  writeln('n6');
  readln (n6);
  nn:=0;
  nm:=0;
 if (n1>n2) and (n1>n3) AND (N1>N4) AND (N1>N5) AND (N1>N6) then
  begin
    nm:= n1+nm;
    end;
  if (n2>n1) and (n2>n3) AND (N2>N4) AND (N2>N5) AND (N2>N6) then
  begin
    nm:= n2+nm;
    end;
      if (n3>n1) and (n3>n2) AND (N3>N4) AND (N3>N5) AND (N3>N6) then
  begin
    nm:= n3+nm;
    end;
      if (n4>n1) and (n4>n3) AND (N4>N2) AND (N4>N5) AND (N4>N6) then
  begin
    nm:= n4+nm;
    end;
      if (n5>n1) and (n5>n3) AND (N5>N4) AND (N5>N2) AND (N5>N6) then
  begin
    nm:= n5+nm;
    end;
    if (n6>n1) and (n6>n3) AND (N6>N4) AND (N6>N5) AND (N6>N2) then
  begin
    nm:= n6+nm;
    end;
    if (n1<n2) and (n1<n3) AND (N1<N4) AND (N1<N5) AND (N1<N6) then
  begin
    nn:= n1+nn;
    end;
  if (n2<n1) and (n2<n3) AND (N2<N4) AND (N2<N5) AND (N2<N6) then
  begin
    nn:= n2+nn;
    end;
      if (n3<n1) and (n3<n2) AND (N3<N4) AND (N3<N5) AND (N3<N6) then
  begin
    nn:= n3+nn;
    end;
      if (n4<n1) and (n4<n3) AND (N4<N2) AND (N4<N5) AND (N4<N6) then
  begin
    nn:= n4+nn;
    end;
      if (n5<n1) and (n5<n3) AND (N5<N4) AND (N5<N2) AND (N5<N6) then
  begin
    nn:= n5+nn;
    end;
    if (n6<n1) and (n6<n3) AND (N6<N4) AND (N6<N5) AND (N6<N2) then
  begin
    nn:= n6+nn;
    end;

media:= ((n1+n2+n3+n4+n5+n6)-(nn)-(nm))/4;


    writeln('menor  ',nn);
    writeln('maior  ',nm);
    writeln('media  ',media:2:2);
     readln;

 End.