Program p56_24;
uses crt;
var v: array[1..100]of integer;
    n, i, b, mb, me: byte;
begin
clrscr;
Writeln('Introdu nr de elemente (1-100):');Readln(n);
Writeln('Introdu elementele:');
for i:=1 to n do begin
 write(i,') ');readln(v[i]);
end;
b :=1; i :=b;
mb:=1; me:=1;
repeat
 inc(i);
 if (v[i]+1=v[i-1])then begin
  inc(b);
  if mb<b then begin
   mb:=b;
   me:=i;
  end;
 end else b:=1;
until(i=n);
writeln('Nr maxim de elemente consecutive descrescatoare: ',mb);
write('Elementele: ');for i:=me-mb+1 to me do write(v[i],' ');
readkey
end.