№6
var
  a,b,c:real;
begin
  Read(a,b);
  if a>=b then begin
    c:=a+b;
    while c<=36 do c:=c+8;
    c:=c+29
    end
  else begin
    c:=2*b+a;
    c:=4*c;
    c:=c+30;
    c:=c/2
    end;
  Writeln(c)
end.

№7
var
  a,b,c:real;
begin
  Read(a,b);
  if a>b then begin
    while a+1>2*b do b:=b+1;
    c:=a+2*b; c:=c+127; c:=c-94
    end
  else begin
    c:=2*a+b;
    if c<=14 then begin c:=c+137; c:=2*c-89 end
    else begin c:=c+127; c:=c-94 end
    end;
  Writeln(c)
end.