program Project1;

const
m:array[1..10] of integer=(3,5,8,1,9,4,5,2,1,2);
var
i:integer;
a,b:integer;
found:integer;
fsum:integer;
begin
fsum:=0;
found:=0;
For i:=1 to 10 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('номер первого из двух последовательных элементов в целочисленном массиве из 10 элементов, сумма которых минимальна:',found);
Writeln('сумма последовательных минимальных элементов:',fsum);
readln;
end.