uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
   i:integer;
   p: boolean;

function yp(a:mass):boolean;
var i: integer;
    p:boolean;
begin
 p:=false;
  for  i:=1 to n-1 do
   if (a[i] > a[i+1]) or (a[i] < a[i+1]) then p:=true;
 yp:=p;
end;

begin
clrscr;
for i:=1 to n do begin
    write ('a[',i,']=');
    read (a[i]); end;

if yp(a) then writeln('упоряд.')
      else writeln('не упоряд.');
end.

{ ... }
p1 := True;
p2 := True;
for i := 1 to n - 1 do
 begin
   p1 := p1 and (a[i] > a[i + 1]);
   p2 := p2 and (a[i] < a[i + 1]);
 end;
yp := p1 or p2;
{ ... }

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
  i:integer;

function MintoMax(a:mass):boolean;
var i: integer;
   p:boolean;
begin
 p:=false;
 for  i:=1 to n-1 do
  if (a[i] < a[i+1]) then p:=true
  else begin
  p:=false;
  exit;
  end;

  MinToMax:=p;
end;

function MaxToMIn(a:mass):boolean;
var i: integer;
   p:boolean;
begin
p:=false;
 for  i:=1 to n-1 do
  if (a[i] > a[i+1]) then p:=true
  else begin
  p := false;
  exit;
  end;
  MaxToMIn:=p;
end;

begin
clrscr;
for i:=1 to n do begin
   write ('a[',i,']=');
   read (a[i]); end;

if (mintomax(a) or maxtomin(a)) then writeln('упоряд.')
     else writeln('не упоряд.');
end.

yp:=p;

MixnoMax:=p;

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
 i:integer;

function MintoMax(a:mass):boolean;
var i: integer;
  p:boolean;
begin
p:=false;
for  i:=1 to n-1 do
 if (a[i] < a[i+1]) then p:=true
 else begin
    MinToMax:=false;
    exit;
 end;

 MinToMax:=p;
end;

function MaxToMIn(a:mass):boolean;
var i: integer;
  p:boolean;
begin
p:=false;
for  i:=1 to n-1 do
 if (a[i] > a[i+1]) then p:=true
 else begin
 MaxToMIn := false;
 exit;
 end;
 MaxToMIn:=p;
end;

begin
clrscr;
for i:=1 to n do begin
  write ('a[',i,']=');
  read (a[i]); end;

  writeln( (mintomax(a) or maxtomin(a)));
  readkey;
end.