program duplazo;
var a,b:real;
procedure duplaz(var x:real; y:real);
begin
     x:=x+2*y
end;
begin
     readln(a);
     readln(b);
     duplaz(a,b);
     writeln('Hozzaadva a 2. ketszereset az elsohoz: ',a:10:2);
     readln
end.