uses crt;

var
  a,b,c: array [1..7] of Real;
  Amax,Cmax,k: Real;
  i: Byte;

begin
  ClrScr;
  Writeln('Введите массив a:');
  for i:=1 to 7 do 
  begin
    Write('a[',i,']=');
    Readln(a[i]);
  end;
  Writeln('Введите массив c:');
  for i:=1 to 7 do 
  begin
    Write('c[',i,']=');
    Readln(c[i]);
  end;
  Amax:=a[1];
  for i:=2 to 7 do if a[i]>Amax then Amax:=a[i];
  Cmax:=c[1];
  for i:=2 to 7 do if c[i]>Cmax then Cmax:=c[i];
  if Amax>Cmax then k:=2 else k:=-1;
  for i:=1 to 7 do b[i]:=a[i]+k*c[i];
  writeln('Массив b:');
  for i:=1 to 7 do Writeln('b[',i,']=',b[i]);
  Readln;
end.