program volchic412 (input,output);
 const n=25;
 var i,d0,d1,vozr,neub,arprogr,gemprogr:integer;
     q0,q1:real;
     a:array [1..n] of integer;
 begin
         writeln ('введите эл-ты последовательности');
         for i:= 1 to n do a[i]:=n;
         writeln ('ввод окончен');
         vozr:=0;
         neub:=0;
         arprogr:=0;
         gemprogr:=0;
         d0:=a[2]-a[1];
         q0:=a[2]/a[1];
         if d0<=0 then if d0=0
                then vozr:=vozr+1
                else
                                begin
                                        neub:=neub+1;
                                        vozr:=vozr+1;
                                end;
         for i:=2 to n-1 do
         begin
                d1:=a[i+1]-a[i];
                q1:=a[i+1]/a[i];
                if d0<>d1 then arprogr:=arprogr+1;
                if q0<>q1 then gemprogr:=gemprogr+1;
                if d1<=0 then
                        if d1=0 then vozr:=vozr+1
                        else
                          begin
                                neub:=neub+1;
                                vozr:=vozr+1;
                          end;
         end;
         if arprogr=0
                then writeln('последовательность- арифметическая прогрессия')
                else writeln('последовательность- НЕ арифметическая прогрессия');
         if gemprogr=0
                then writeln('последовательность- геометрическая прогрессия')
                else writeln('последовательность- НЕ геометрическая прогрессия');
         if vozr=0
                then writeln('последовательность- возрастающая')
                else writeln('последовательность- НЕ возрастающая');
         if neub<>0
                then writeln('последовательность- НЕ НЕубывающая')
                else writeln('последовательность- НЕубывающая');
         readln
 end.