Pascal :

var a,b,c:integer;
begin
 a:=50;
 b:=43;
 c:=13;
 a:=a div 3;
 b:=b+a;
 c:=c+a;
 b:=b div 3;
 a:=a+b;
 c:=c+b;
 c:=c div 3;
 a:=a+c;
 b:=b+c;
 writeln(a);
         writeln(b);
         writeln(c);
end.