x=2;
nbsol=0;
while x<=50
  y=x+1;
  while y<=51
    if 13*x+19*y==1000 then
      f="nb de femmes = "+string(x);
      disp(f);
      h="nb d''hommes = "+string(y);
      disp(h);
      nbsol=nbsol+1;
    end
    y=y+1;
  end
  x=x+1;
end
s='nombre de couples solutions = "+string(nbsol);
disp(s);
