program ZZZ1;
uses crt;
const L=10;
var m:array[1..L]of integer;
i,a,b,found,fsum:integer;
begin
clrscr;
randomize;
write(' Massiv:');
for i:=1 to L do begin
m[i]:=random(7);
write(' ',m[i]);
end;
writeln;
fsum:=0;
found:=0;
for i:=1 to L-1 do begin
a:=m[i];
b:=m[i+1];
if a=b-1 then begin
if fsum=0 then begin
fsum:=a+b;
found:=i;
end else
if a+b<fsum
then begin
found:=i;
fsum:=a+b;
end;
end;
end;
writeln(' Nomer pervogo iz dvuh posl. elementov s minim. summoj = ',found);
writeln(' Minim. summa dvuh posl. elementov = ',fsum);
readkey;
end.

program ZZZ2;
uses crt;
const L=5; R=50;
var a:array[1..L]of integer;
b,i,h:integer;
begin
clrscr;
randomize;
write(' Massiv:');
for i:=1 to L do begin
{write('Vvedite  ',i,'-y element massiva : ');
readln(a[i]);}
a[i]:=random(R*2)-R;
write(' ',a[i]);
end;
writeln;
for h:=1 to L-1 do
for i:=1 to L-h do
if a[i]>a[i+1] then begin
b:=a[i+1];
a[i+1]:=a[i];
a[i]:=b;
end;
write(' Uporyad.:');
for i:=1 to L do write(' ',a[i]);
writeln;
readkey;
end.