[chainik]

Код:

program Project1;

{$APPTYPE CONSOLE}


var
i,Dim:integer;
M:array of integer;
Up,Dn:boolean;

begin
Up:=false;
Dn:=false;
Write('Dimention:');readln(Dim);
SetLength(M,Dim);
for i:=0 to High(M) do read(M[i]);
readln;

for i:=1 to High(M) do
  begin
  if M[i] > M[i-1] then Up:=True;
  if M[i] < M[i-1] then Dn:=True;
  end;

if Up and Dn then writeln('NoSorted')
else if Dn then writeln('Down')
else writeln('Up');

readln;
end.