program p2;
var x:integer:=0;
procedure pis_a;
var i:integer;
begin
  for i:=1 to 50 do
  begin
    x:=x+1;
    writeln('1:',i);
  end;
end;
procedure pis_b;
var j:integer;
begin
  for j:=1 to 50 do
  begin
    x:=x+1;
    writeln('2:',j);  
  end;    
end;
begin
  cobegin
    pis_a;pis_b
  coend;
  writeln("x=",x);
end.