1) Дана последовательность из N элементов (N вводится с клавиатуры). Является

Var
i,max,min,flag,a,b,n:integer;
 begin 
  read(n);
   flag:=0;
    for i:=1 to n do
     begin
      read(a);
       if i=1 then
        begin
         max:=a;
         min:=a;
       end
      else
      begin
        if agt;max then
         max:=a;
        if mingt;a then
         min:=a;
        if bgt;a then
         flag:=1; 
       b:=a;
       end;
      end;
      if flag=0 then
       writeln('Yes')
      else
       writeln('No'); 
      writeln(max-min); 
         end.